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TOENTIFICATION 


Product Codes MAINDEC 11 eDVKPAcAcD 
Product Nene: KPViieA Oiegnostic 
Date Createds Jenuery 1977 
Mainteiners Diagnostic Engineering 


Copyright (C) 1977 
Digite, Equipment Corporation, Maynard, Ness, 


This software ie turnisheé under @ license for use only on @ 
Single conputer systes end ney bé copied only with tne inclusion 
of the abeve copyright netice, This seftware, eof eny other 
copies therecot, sey net be provided or otherwise sade aveilabie 
te any other persen except for use on such systes and te ene whe 
egrees te these iieense terms, Title te end ownership ef the 
software shail et @11 tises renein in DEC, 


The in¢gormetion in this éecument is subject te ehange without 
notice end should net be construed a6 @ commitment by Digitel 
Equipaent Corporetion, 


DEC essunes ne respensivility fer the use or reliability of its 
softwere on equipsent which is not supplied by DEC, 
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1,0 ABSTRACT 


This program allows the user te checkout or debug the KPVileA, 
L8Iei1 Power Fail/Line Time Generator, To checkeout Power tail, 
NoneVolatile Memory (1,@,, core) must be located in the first 4k 
senory, The user should check the jumpers on the option es well 
es jumpers on the LEIeii sedule, 


Even tnough the KPVeiiA ig a@ LSIeil option, this progrem was 
4esigned to run en any POPeii Family Computer, If the user is 
unteniiier with en L8Ieii he snould review sections 8,4 and 8,5, 
A Software switch register is inciuded with this progres, 


Every effort wes sade te make this program confers te L8Ieii 
yee e restrictions, However, the user should read sections 
ei and 7,2, 
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2,0 REQUIREMENTS 


2.1 Equipment 
1, PDpeii Fenily Computer witn 4K of core memory (or sore) and 
console 1/0 #ecilities (4,.0,, TTY), If CPU is an LSIei1, 
Poweroeup option #1 should be jumpered on CPU nodule, 
2, KPveii under test, 


The following jumpers aust be installed or removed (Stenderd 
Factory Contiguration)s 


INgGTALLED REMOVED 


wi,W2,03 W6,09, 410 
W4,0S,07 wi2 

we, Wii, Wid 

wid, Wis 


2,2 Storage 
This progres ocecupies end uses the lower 4K of menory, 





3,0 LOADING PROCEDURE 


— 


Method 

Standard procedure for nor@eal binary tapes should be followed, 
i, Absolute loader must be in Benory, 

2, Place binary tepe in reader, 

3, Type address #7500 (edetermine py location of loeder),. 

4. Type °G* (program will be loaded inte senory), 

The progres cen else be loaded By XXDOP, ACT or APT, 


None8tanderd Address, Veetor, of Use of Software Switen Register 


This progres is set te test a KPVIieA with a standard address and 
vector, I¢ any of these ate different on the KPViieA or KD11i you 
ere testing, change the corresponding lecation in senory before 
starting this test, 


CURRENT 
TAG ADDRESS CONTENTS COMMENTS 
ane eeceses sescecese eecccese 


eBASE 001246 177646 p9BASE ADDRESS OF EQUIPHENT 
ovreri 001242 000100 peINTERRUPT VECTOR 01 
CBUREG 000176 000000 pPMANUAL SUR 


noclk 001370 000000 psindicetes if clock te be tested, 


9980 test clocks:e1 no clock test, 


EC 





Control Switen Setting 


Before starting the diagnostic, set all switen register pits as 
Gesirea, See section $,1, 


Starting Addresses 
200 48=«gtart of Logie Tests 


Programs and/or Operator Action 
1, Lead progres inte sesory, 
2. enter keyboeré "ODT", 


3, Alter location "SWREG® to reflect desired options of e switch 
register © See section 5,1, 


4, Type starting address, followed by *"G* to start progras, 


< 
Page 7 
SEQ 0007 ‘ 
$,0 OPERATING PROCEDURE 
SPSPSSSSM@BARSSHDSTESSS Py a 
t 
$,1 Switeh Register Funetion 
swR BIT OCTAL FUNCTION WHEN SET ; @ 
Seeeeece Senza QFl@SSTSSeEsOOVaAege 
18 100000 HALT OW ERROR ¢ 
14 040000 LOOP ON TEST 
13 020000 INHIBIT ERROR TYPEOUT 
11 004000 INHIBIT ITERATIONS (SHORT PASS) < 
10 002000 BELL Of ERROR 
08 000400 LOOP OW TEST IN SUR <730> , 
NOTE ‘ 
The Switeh Register may be changed at 
any time while the diagnostic is running 
by typing °°G*, é 
é 
$,.2 Scope Loops 
If an error cecurs end the user wisnes te seope the error, « 


"SSUREG" should be aitered te *100000° eat the start of the test 

te nele on error, then wren the Progren naits on error and tne 

CPu enters “ODT, "SSWREG® shovld De altered to *060000° to loop 4 
on current test end inhibit errer typeeut, then type "P* te 

continue progres execution, 





5,3 Program and/or Operator Action 


When the program is initially sterted it will type: 


"MDeoLLeDVKPACA 
SWRe000000 NEWs® 


Preogrea waits for operetor to enter a switeh register 
seeting, I@ the pregres is restarted, no typeout will occur 
to ehange the Switenh Register setting, see section 6.6, 


Progrem executes a passe of logic tests, subtest iterations 
innipited, 


Progras reports any errors it detects as well as any pover 
fejlures thet occur, 


Programs reports "END PASS XX POWER FAILS YY¥* where XX @ the 
toeeal pesses completed and YY is the totel nusper of pover 
a detected while the program has run, Seth numbers are 
eceal, 


Progres ecentinues execution of steps 3e8 only with subtest 
iterations (uniess inhibited by operator), 
NOTE 


Power failures CAN NOT be generated by 
this progres, Tne eperater UST 


He 





Error printout 


Printout varies with the error detected, The error PC typed out 
is the eetual lecetion s¢€ the error call, 


NoneStanéaré Error Halt 


Bus errors will cause @ Halt in the routine “ZOTAD*, The address 
that caused this trap will be in "TRTO*, 


RESTRICTIONS 


- 





1J 


@,0- MISCELLANEOUS 


Seeeeeegeeeeee 
-. 
* 


Power Fail 


After @ power failure eceurs, the progres execution vill continue 
et the point where the power failure occurred, The progres will 
type "pFeOK® if ne messages were being typed out, If @ message 
was being typed out et the tine ef the power fail, it will 
Coapiece typeout of thet message, 


XXDP, ACT, APT 


The progres is chainable under XXDP, ACT, of APT, Altheugh “APT 
HOOKS® have been installed, they have not been tested, 


Execution Tine 


0,1 Minutes (6 see) Iteration Inhibited © No Errors 
0,78 Minutes (60 see) With Iterations © we Errors 
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SEO 0014 4 
6,4 LSIeii "NDT* Commands ‘ 
FORMAT DESCRIPTION 
SOR COS : — BS SOGSee 
¢ 
<CR> RETURN Close opened location and eccept next 
eo.mend, ‘ 
<LF> LINE FEED Ciese current ,ecations open next sequential 
location, ‘ 
*( UPARROW) Open previovs location, 
< (LEFT ARROW) Take contents of opened location, indexed by J 
contents of PC, and open that locetion, 
8 Take contents of opened location as absolute ( 
edéress and open that iecation, 
es _-- Open the word at location R, J 
Reopen the lest lecation, y 
6N/ oF RN/ Open gener@i register (0°?) or s8(PS 
register), ‘ 
RtG of RG GOTO leeation R end start progras, 
NU Execute Bootstrap leader using as device 4 
CER, Console device is 177860, — 
8? or P Proceed with progres execution, . ( 
RUBOUT Erases previous numeric character, Response 
is @ becksiesh (\), ( 
( 
( 
J 
J 
J 
J 
J 


6,5 Entering LSIeit *oDT* 


The hait or ODT microcode state of the KDii (LSI°ii CPU) can be 
entered in four different ways (ethers are @ suoset of these) 
from tne run states 


i, Execution of an LEI°11i nalt instruction, 
2. A gouble bus error, 
3. AS @ power up option, 


4, ASCII break with DLVii freaing errer asserting the 8B halt 
line (enabled By jumper of DLVi1), 


Upon entering the heit state, the KDiiIFr responds through the set 
of compands listed in seetion 6,4, 


Use of Progren Software BWR 


The se¢tware switenh register say be changed while the progres is 
running by typing °G (eontre, and jetter G keys typed 
simuiteneousiy), When °G is typed, the pregran responds by 
typing eoune ® where XXXZXAX equa}s the forser contents of 
the suiten register, 


If you vieh te keep the current Value, type <CR>, If you wish te 
ehange the value, type the new value followed by a <CR>, 


It is i{eportent te nete that the @iegnestic is net Funning efter 
the °G untii @ <CR> is typed, 
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8,7 Trep Caetener 


The Trap Ceteher in this diagnostic eapleys @ new concept, Tris 
Concept will enable the wseF of this éiegnostic te gain nore 
knowlease of the events that lead the programs to this erea, 


The Trap Cateh consists cé PCo2 and JER PC,RO (1,0,7 Location 300 
would contain 302 and location 302 would contain 4700), 


When a device unexpectedly interrupts te the Trap Catener, it 
would piek up the PCe2 of the trap af en aderess of the interrupt 
service routine, 


the progres would then pick up "4700" as the new paw, Bit 7 of 
the new PSu having been sets Yould prevent further interrupts 
ftom seppening, When the CPU ettempts te execute *°*4700° 
(JGR PC,RO), & Bussetinereut trep will ecceur te iecetion 4, 
Location 4 contains @ pointer te “I10TRD*, — reutine thet will 
report the trap as en errer, 


To gueré egeinst *Real® Gus errors reutin, * threvgn lecetion 4 
to "ZOTRD®, we eheck te see if the -# thet Brought us te 
location 4 realiy ease free the frap Cateher grea, If net we'll 
hait end leave the frep Adéress in *TRTO*, 


More apout the interrupt errer Cen be found in the éeseription of 
the error in the progres listing in the routine *I10TRD*, 


yr} 


= aa 
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9,0 PROGRAM DESCRIPTION 


TsTi 


T8T2 


TsT3 


TséT4 


TSéTs 


TSéT6 


T6T? 


In thie test we write el) evailedle memory from the end 
ef the pregres te edéress 17470 with either a sero 
pattern or @ ones pattern depending on wnetner we ere 
On On even pease RuUBber Of O46 pass number, We restrict 
mesory checking te tne lower 4K of semory since other 
memory Could be voletile, “HILIN® (address 1342) sey 
be changed te refiect en end edéress greater then 17470 
if wore nenevelatile Sesery is in your systes, 


Atter writing sesory, it is reed pack te essure thet it 
could pe written eerrectiy, T@ not, en error is 
reported, 


During the sensory write perieé, power feilures could 
occur, Apprepriete seftwaere ftilegs ere set while 
writing semory se thet the power up routine can eheck 
msenory efter «a power up without confusing the pattern 
written in sesery, 


Were we check te see that the cleek will respond with 
"B RPLY® when addressed, This test is in two partes 
Pert One edéressés the Clock with "8B DIN") Part Two 
edéresses the eleck with *8 DOUT®, If this test tells, 
no further tests will be perferned, The operator nust 
fiz the errer, Ne say locop on test two, 


Here we try setting, then eleering bit 6 (interrupt 
enable) ef the Centrel and Stetus Register (C8R), If @ 
power feliure eccurs Guring this test, the test will be 
perterned egein, 


In this test we weit te see if the eloek Cérn bit 7 will 
set, interrupt enedle is alse set, after CER bit 7 
sets, we expect en interrupt te cccur, 

This test is designed te see if we can cleer CER bit 7, 
To do this, we first Bust eliew the eleek te interrupt, 
assuring thet the fie@ just set, Then we can attempt 
te clear it by writing it te @ sere, 


In this test we meke sure thet the cleck doesn’t 
interrupt when COR bit 6 is clear, 


This test is the seme e6 Part 2 of TESTI, We verity 
thet the pettern in sesory is the seme es ve wrote 
there, Only this tine we spend @ let of tise reading 
sesery, in hepes of catenins «4 power failure while 
reading it, 





| ee) 
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Power down routine, This routine is entered when «a 
Power down sequence has occurred, The tirst thing we 
cheek tae this is net the first power down) is to see 
i¢@ the last power down had had enough tise to complete 
this reutine, Ie note we halt, Next we set ea flag to 
indicate thet we started this power down routine, Now 
we seve a1) general registers, as well as error sessage 
locations in case we Were reporting an error before the 
power feilure eecurreé, A peinter te the pover up 
routne is put in leeetion 24 se that on power up, 
progres centrol is transferred there, Next we clear 
the power down fleg indicating thet this power down was 
successfully completed, Last we wait for power te go 
ewey while doing ea BSrantheselt, If "POWER OK® isn’t 
esserted before the power Goes avay, we stand a good 
enence et chenging sesery lecations since senory vas 
eyeling during @ power loss, 
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Routine te hendle power recoveries 


The first thing we cneek for is to seke sure the power 
Gown routine hed nad enough tise to complete, Next ve 
put e pointer te a routine that will take care of the 
case where we didn’t heave enough tine to start our 
power up reutine, Now we cheek to see that we didn’t 
experience 6& power failures without completely 
finishing ene, In that Case the steek pointer is 
getting déangerousiy low and we coulén’t put enyaore 
ingorsetion with it, With the prelisineries done, ve 
put @ pointer te eut power down routine inte locetion 
24, Next we°ll verify the ecentents ef our writeble 
mesory, checking the flags te be sure thet we weren’t 
writing @ new pattern inte senory, 


When the power failure cecurred, Fleg "BLKCK® was set 
when we changed pass nusbers but not pattern, When the 
new pattern wes written inte et least ene lecetion, 
BLECK i6 elesreéd, Fieg *HENWR® is set when we started 
writing @ new pattern Gnd Cleared when we fuliy have 
written @ new pattern, If NEMWR is set, ve will get 
the lest address te eheek from “*LHAW", thus eheeking 
only senery thet vas Written with the new pattern, 


New we will eheek te see that the eloek CER will 
initielise properiy, First, however, we cheek to sake 
sure that the CGleck passes *TsT2" (the eddressing 
test), 8 i d@8dn°t we won*’t toveh the clock here 
sinee we can’t efferé any tisesout traps if the elock 
should preve incapable of passing that test, 


Next we vrestere ei) general registers end other 
inforsetion that wes Stereé on the stack when the power 
failure eceurred, 


Lest we cheek te see if a sessege vas being typed out 
et the tise the power teilure occurred, 


If ne message was being typed, we will types *PreOK’, 
Id @ pessege wes being typed, we will back up the ASCII 
string peinter te piek up the eharecter thet was iost 
when the power failure eceurred, then continue to type 
out the sessege, NOTES: I¢ the power failure did not 
eceur in the serie] line unit controlling the console 
1/0 device, @ duplicate cherecter will be typed of the 
lest enerecter typed befete the power fail thet caused 
the CPU te ge avey, 
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36 000174 
37 000176 


42 000200 
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000004 
006614 
000174 
000000 
000000 
000100 
000104 


000200 
000137 
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sTITLE MAINDEC*11¢DVKPACA 
peCOPYRIGHT (C) 1977 
p@DIGITAL EQUIPMENT CORP, 
p@MAYWARD, MASS, 01754 


9® 
p®PROGRAM BY EDWARD C, BADGER 


9@ 
p@THIS PROGRAM WAS ASSEMBLED USING THE PDP#ii MAINDEC SY¥SmMAC 
p@PACKAGE (MAINDECe11eDZQAC°C2), SEPT 14, 1976, 


oTnei 
,SBTTL OPERATIONAL SWITCH SETTINGS 
8 
18 SWITCH USE 
10 See DBRS SSVBPEBO*s@O@anseqroavowevs 
0 +8 HALT OW ERROR 
° 14 LOOP ON TEST 
e 13 INHIBIT ERROR TYPEOUTS 
1° ii INHIBIT ITERATIONS 
* 10 BELL OW ERROR 
8 $ LOOP OW ERROR 
hed 8 LOOP OW TEST IN SWRCTEC> 
,SBTTL TRAP CATCHER 
280 
POALL UNUSED LOCATIONS FROM 40776 CONTAIN A *,02° 
—8 ®J8R PC,RO® SEQUENCE TO CATCH ILLEGAL INTERRUPTS, 
}@AND INTERRUPTS TO THE WRONG VECTOR 
peLOCATION © CONTAINS AO TO CATCH TRPROPERLY LOADED 
peVECTORS 
04 
=WORD LOTRD, 200 ;MANDLE BUSS ERROR, 
s 4 
DISPREG:.WORD 0 ppSOPTWARE DISPLAY REGISTER, 
SUREGs +WORD 6 ;)SOPTWARE SWITCH REGISTER, 
83 
SWORD 1062002 ;1F °B EVENT® ON GeBUS 18 
;CONNECTED, WE WEED A WAY OF 
8200 sIGNORING ITS INTERRUPTS, 
Jup START 


eSB8TTL BASIC DEFINITIONS 


p@IUITIAL ADDRESS OF THE STACK POINTER e00 1100 eee 
STACKe 1100 


»SO0ZY ENT, ERROR ppBASIC DEFINITION OF ERROR CALL 
sBOUZY I0T, SCOPE ppBASIC DEFINITION OF SCOPE CALL 
pONISCELLANEOUS DEFINITIONS 

te is p9CODE FOR MORIZONTAL TAB 

LPs 12 $9CODE FOR LINE PEED 

CRe 48 p9CODE POR CARRIAGE RETURN 








& 
MAINDEC*1 1eDVKPACA 

e DVKPA,P14 BASIC DEFINITIONS 
z* 

Pt 
46 177774 

e a 177772 
60 177870 
61 177870 
6 

© 63 
64 000000 

e 6s 000001 
66 000002 
6? 000003 

6 se 000004 
69 000008 
70 000006 

e "1 000007 
12 000006 
3 000007 

€ 78 
7 000000 

© 17 000040 
78 000100 
19 000140 

e 80 000200 
81 000240 
3 33* 

000 

® 04 
as 

e 86 100000 
a7 040000 
aa 020000 

e 29 010000 
60 004000 
64 002000 

° 92 001000 
93 000400 
94 000200 
98 000100 

& 96 000040 
97 000020 

e 98 000010 
99 000006 
100 000002 

e 104 000001 

@ 

é 

6 

O 
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CRLFs 200 

PSe 177776 
eCQUIVY PS, PEW 
OTRLMTe 177774 
PIRGe 177772 
DéwRe 1171870 
DDIsP= 177870 


p9CODE FOR CARRIAGE RETURN@LINE FEED 
pPPROCESSOR STATUS WORD 


ppSTACK LIMIT REGISTER 

pPPROGRAM INTERRUPT REQUEST REGISTER 
ppHARDWARE SWITCH REGISTER 
spHARDWARE DISPLAY REGISTER 


ee PURPOSE REGISTER DEFINITIONS 
R 89 


oo ae LEVEL DEFINITIONS 
PROS 


Ris a1 
R2e 92 
R3e $3 
R48 G4 
RSe es 
Rée G6 
R7e a7 
gPs es 
pce 07 
PRio Se 
PRQe 100 
PR3e 140 
PRae 200 
PRIe 240 
PRee 300 
PRIB 340 


psGENERAL REGIGTER 
p9GENERAL REGISTER 
p9GENERAL REGISTER 
ppGENERAL REGISTER 
ppGENERAL REGISTER 
ppGEWERAL REGISTER 
ppGENERAL REGISTER 
ppGENERAL REGISTER 


spPRIORITY LEVEL 
ppPRIORITY LEVEL 
ppPRIORITY LEVEL 
pePRIORITY LEVEL 
ppPRIORITY LEVEL 
ppPRIORITY LEVEL 
ppPRIORITY LEVEL 
epPRIORITY LEVEL 


~@@eauwne oO 


ot gio w+ a SUITCH DEFINITIONS 


841208 10000 
S¥iie 4000 
s¥i10e 2000 
svose §=1000 
suoee 400 
suo7te 200 
suoée 100 
suose 40 
svo4e 20 
swo3e § 10 
svoze 4 
svois 2 
6008 


4 
sSQUIY Bw09,sN9 
eSQUTY Bw0s, sue 
eEQUIY 8407,807 
sSQUIY Bw06,8NG 
»tOUlY Bwos,aus 
sEQUIY BN04, B64 
stQUlY 8w03,aN3 
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109 
110 
iii 
112 
113 
114 
415 
116 


= 
tat 
a 


MACYi1 27(663) 
BASIC DEFINITIONS 


100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 


000004 
000010 
000014 
000014 
000014 
000020 
000024 
000030 
000034 
000060 
000064 
000240 


177846 
000100 
000001 


2emMAYe7? 


»tQurv 
»COurV 
»fQurv 


p@DATA 
BIT1Se 
BITiés 
BITi3e 
BITi2e 
aITiis 
BITi0e 
Brtoee 
BrTose 
BITo7e 
BrT0ée 
BITOSse 


6W02,802 
801,601 
8400, 6Ww0 


BIT DEFINITIONS (BITOO TO BIT1IS) 


100000 
40000 
20000 
10000 


BITO9, BITS 
BIT0e,BITs 
21707, 8177 
BIT06,BIT6 
BIT0S, BITS 
BIT04, BITE 
BIT03,BI7T3 
BIT02,8rT2 
BIT0% , BIT 
BIT00,BIT0 


p@BaSIC a TRAP VECTOR ADDRESSES 
ERAVECSe 


1 71u8 OUT — OTHER ERRORS 


RESVECe ie poRESERVED AND ILLEGAL INSTRUCTIONS 
TOT TVECs1 <4 pe°T® BIT 
PRIVECS 14 pe TRACK TRAP 
BPTVECe 14 ppBREAKPOINT TRAP (BPT) 
IOTVECe 20 seINPUT/OUTPUT TRAP (10T) eeSCOPECe 
PURVEC® 24 ppPOWER PAIL 
SNTVECs 30 ppEMULATOR TRAP (EMT) SCERRORGO 
TRAPVECS34 pe°TRAP® TRAP 
@RVECe 60 geTTY KEYBOARD VECTOR 
TPvECe 64 gpTTY PRINTER VECTOR 
PIROVEC S240 pePROGRAM INTERRUPT REQUEST VECTOR 
ABASEs 1773946 
AVECTie 100 
OTHei 


»SBTTL ACTI4 HOOKS 


IIIR 
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MAINDEC’4 gepVKPACA MACT14 27(663) © 
DVKPA,Pii ACTii HOOKS 

163 

186 000204 
165 000046 
166 000046 003324 
167 000082 
168 000082 000000 
169 000204 
170 001000 
171 

172 

173 

174 

178 

176 001090 
177 0000326 
178 000024 000200 
179 000044 
180 900044 001000 
161 001000 
162 

163 

104 

108 

186 0010900 

187 001900 000000 
186 001002 001174 
1898 001004 000074 
190 001006 000170 
191 001010 000170 
192 001012 000031 
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SEO 0023 
pHOOKS REQUIRED BY ACTIi 

eavece, SAVE PC 

a6 

SENDAD 994)8ET LOC,46 TO ADDRESS OF SENDAD IN ,SEOP 

Ss 

SWORD — $92)8€T LOC,$2 TO ZERO 

eesvec 19 RESTORE BC 


921000 
eS8TTL APT PARAMETER BLOCK 


$000000000000000000000005000000000000000000000000000000000000008 
aE? LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
$1 
o8Xe,  PpSAVE CURRENT LOCATION 
oad 99827 POWER FAIL TO POINT TO START OF PROGRAN 
200 rrosa APT START UP 
0044 pePOINT TO APT INDIRECT ADDRESS PUTR, 
GAPTHOR » POINT TO APT HEADER BLOCK 
o%,0X py eRESET LOCATION COUNTER 


$100800000000000000000000060000000000000000 090000000000000 
) SETUP APT PARAMETER BLOCK AS DEFINED In THE A APTOPOPAA DIAGNOSTIC 
pINTERFACE SPEC, 


OAPTHDs 

ORIBTEs ,WORD 0 peTWO HIGH BITS OF 16 BIT HATLBOX ADDR, 

GABADRe ,WORD OMAIL 4) ADDRESS = APT MAILBOX (BITS 0°16) 

eTeths ,WORD 60 peRUN TIN OF Gest Test 

OPASTHe WORD ppRUN TINE tu BEC ing’ 16T PASS OW 1 UNIT (QUICK VERIFY) 


420, 3 
OUNITHe ,WORD ore ppADDITIONAL RUN * 


(88C6) OF A ease vor ACh “ADD ITTORAL UNIT 
(WORDS) 





| 
| 
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DVKPA,P1i COMMON TAGS SEG 0022 ( 
ee ,S8TTL COMMON TAGS 
i 
198 — 
196 ornts TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
oH p®USED IN THE PROGRAM, { 
1% 
199 001100 981100 
200 001100 OCNTAGs ppSTART OF COMMON TAGS ( 
201 001100 000000 eWORD 0 
202 001302 000 oraruni ,BYTE 0 ppCONTAINS THE TEST NUMBER 
203 001103 000 GCARFLGs ,BYTE 0 ppCONTAING ERROR FLAG q 
204 001104 000000 erIcnts ,WORD 0 ppCONTAING SUBTEST ITERATION COUNT 
208 001106 000000 OLPADR, ,WORD 0 ppCONTAINS SCOPE LOOP ADORESS 
206 001410 000000 OLPERR, ,WORD 0 p9CONTAINS SCOPE RETURN FOR ERRORS r 
207 0011312 000000 GERTTLe , WORD 0 ppCONTAING TOTAL ERRORG DETECTED 
208 001414 000 OITENDs ,BYTE 0 ppCONTAING ITEM CONTROL BYTE 
208 0011158 001 OERMAXs ,BYTE 1 ppCONTAING MAX, ERRORS PER TEST r 
210 001416 000000 eCARPCs ,WORD 0 ppCONTAING PC OF —* ERROR INSTRUCTION 
211 001320 000000 6GDADRe ,WORD 0 p9CONPTAING ADDRESS OF °GOOD*’ DATA 
212 001122 000000 ‘@BDADR:e WORD 0 peCONTAING ADDRESS OF °BAD* DATA r 
213 001124 000000 SGDDATs ,WORD 0 ppCONTAING °GOOD" DATA 
214 001136 000000 eBODATs WORD 0 p9CONTAING °BAD*® DATA 
218 001130 000000 eWORD 0 ppREGERVED©oNOT TO BE USED ‘| 
216 001132 000000 eWORD 0 
217 001934 000 GAUTOSs BYTE 0 ppAUTOMATIC MODE INDICATOR 
218 0013936 000 OINTAG: ,SYTE 0 seTATERRUPT MODE IHOICATOR ( 
219 001136 000000 @WORD 0 
220 001140 179870 Guae e WORD Sawa peADDRESS OF GWITCH REGISTER 
221 001442 1797870 DISPLAYe * WORD ODIsP ppADDRESS OF DISPLAY REGISTER i 
222 001144 177860 OTKss 177860 g9ttT ee StAtUs 
223 001346 177862 OTKBe 19797862 petty xoo BUFFER 
224 001180 1797864 oTPés 177864 peT?Y PRINTER STATUS REG, ADDRESS ( 
228 001382 177866 erPae 477866 geTTY PRINTER BUTTER REG, RESS 
226 0014864 000 SNULLs ,BTTE 0 CONTAIN BULL CHARACTER POR FILLS 
227 001388 002 OFELLSs , BYTE 2 peCONTAING 6 aia CHARACTERS REQUIRED ( 
228 001486 012 OFILLCe ,OYTE 12 peTNSERE PILL C e AFTER A *LIRE PEED* 
229 001187 000 OTPFLG: BYTE 0 99° TERMINAL RvAsbAnee® PFLAG (OI%<073e00tE8) 
230 001160 000000 OTINESs é 8 SUMBER OF ITERATIONS ( 
231 001162 000000 OESCAPELO ESCAPE OW ERROR ADDRESS 
232 001164 177607 000377 SBELLs ,ASCIZ <20724377><377> + CODE FOR BELL 
233 001170 077 eQUESs ,ASCII /?/ + QUESTION HAWK | 
234 001171 018 OCRLPs ASCII <19> seCARRIAGE RETURN 
238 001172 000012 olrs eASCIE <12> peLlne FEED 
236 — ESLER RTESSO GREE GEETEEGOOLOSOHRET SOCORRO THOER HDT TTEHERDE ( 
4 eSOTTL APT NAILBOX-ETABLE 
239 1999899800608 09 0050005 4F8HHHOS EET HHOOHHODETHHHOTOOTOSHSOTERERHO HES ( 
240  tVvEn 
241 001174 OMAILE p9APT MAILBOX 
242 001174 000000 OMSGTYs WORD AMSGTY 9 MESSAGE TYPE CODE ( 
243 001176 000000 OFATALs ,WORD APATAL 4 9FATAL ERROR NUMBER 
244 001200 000000 STESTHs ,WORD ATESTH 95 TEST NUMBER 
245 001202 000000 OPAS8s ,WORD APASS 49 PASS COURT | 
246 001204 000000 SDEVCTs ,WORD ADEVCT DEVICE count 





\ 





DVKPA,P1i APT MAILBOXE TABLE SEO 0023 f 


247 001206 
248 001210 
249 001212 
280 001214 
281 001214 
282 001218 
283 001216 
234 001220 
285 001222 


270 001330 
273 0013233 


© 

e@ 

e 

c 

€ 

© 

€ 

& 

€ 

€ 

c 

e 278 001296 
c 

€ 

c 204 001286 
€ 
€ 
€ 
€ 
€ 
€ 
e 


ge 
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000000 GUNITs ,WORD AUNIT 
000000 GMSBGAD, ,WORD AMBGAD 
000000 OMGGLG: ,WORD AMBGLG 

GETABLEs 
000 OENVe oSYTE AENV 
000 ENVN, ,SYTE AENVM 
000000 OSWREGs ,WORD ASUREG 
000000 eUSWRe ,WORD AUSWR 
000000 osveere WORD ACPUOP 
‘e 
0 
| hed 
9® 
10 
000 OMANS35 , BYTE AMAMS) 
000 6 ie ,SYTE AMTYP4 
% 
e 
g@ 
9® 
000000 — e¥ORD AMAORY 
9 
000 GAANS2¢ ,BYTE AMANS2 
8 8 ,STTE AnryP2 
000000 @MADRZs ,WORD AMADRZ 
000 GRAND, BYTE ANANRSS 
000 ORTYP3s BYTE ANTYPS 
000000 @RADRIG , ABADBY 
000 OMANG4: ,SYTE ARANS4 
000 ORTTPGs BITTE ANTIPSE 
000000 GMADRGs , AFAOR4 
000160 eVECTis ,WORD AVECTI 
000000 eVECT2s ,WORD aAvect? 
177846 OBAGEs WORD ABASE 
000008 eOEVNe WORD ADEVN 
000000 A. WORD acori 
9 


993/70 UNIT NUMBER 
ppMESSAGE ADDRESS 
p9MESSAGE LENGTH 
ppAPT ENVIRONMENT TABLE 
peENVIRONMENT BYTE 
pp ENVIRONMENT MODE BITS 
PpAPT SWITCH REGISTER 
p9UGER GUITCHES 
99CPU TYPE, OPTIONS 
BITS ISelLieCceU TYPE 
£1704001,11/05002,11/20803,11/40804,11/45805 
11/70806, 900007, 0210 
BIT LOe8REAL TINE CLOCK 
BIT SeFLOATING POINT PROCESSOR 
BIT GeNENORY MANAGEMENT 
ppMEn, TYPE, BLKCs 
HEN, TYPE BYTE jce (NIGH BYTE) 
900 NSEC CORESO00 


sq: ADORESS, BLKO1 
HEN, LAST ADOR,03 BYTES, THIS WORD ANDO LOW OF *°TYPE* ABOVE 

poNIGN ADORESS,N,8, BYTE 

pp MEN, TYPE, BLES 63 

pp MEM LAST ADDRESS, BLKO2 
— 2 

Tf ADpDAESS, BLKO3 

3338 XV 

99 MEN TYPE, BLESS 

ppMEM LAST ADDRESS, BLKO4 

po3 vor —— ,808 patoarrro . 

PPINTERRYPT vee roao 2000 30037702 
3u ADDRESS OF EQUIPMENT UNDER 
peDEVICE RAP 

psCONTROLLER DESCRIPTION WORDS 





' 
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DVKPA,Pii ERROR POINTER TABLE SEQ 0026 4 
asy eS8TTL ERROR POINTER TABLE ( 
288 pOTHSS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR, 
209 pOTHE INFORMATION 36 OBTAINED BY USING THE INOEX NUMBER FOUND IR 
290 TeLOCATION CITEMD, THIG NUMBER INOICATES WHICR ITEM IN THE TABLE 16 PERTINENT, q 
291 poNOTEIs IF GITEMS 36 O THE ONLY PERTINENT DATA 18 (SERRPC), 
aes p@NOTE2: EACH ITEM IN THE TABLE COMTAINS 4 POINTERS EXPLAINED AS FOLLOWS; ( 
294 1@ £M ppPOLNTS TO THE ERROR NESSAGE 
298 e@ On ppPOINTS TO THE DATA HEADER 
296 99 of ppPOINTS TO THE DATA ( 
—8 hed or ppPOINTS TO THE DATA FORMAT 
2 
299 4 
300 001956 GERRTBs 
301 
302 { 
aos pt TEn i 
0 
308 0012386 0067864 emi pMBRORY REAO/WRITE ERROR ( 
306 001260 007168 Ooms pernec ADOR Was 8/8 
307 001262 007324 oT! p SERRPC, RADOR, OBODAT, SGDDAT 
—3 001264 007364 oro pALL NUMBERS ARE IN OCTAL FORK ( 
0 
+H wae A: ( 
312 001266 007008 Ena pMEMORY DATA ERROR APTER POWER FAIL 
313 001270 007166 OMS atanpe aoon oko 348 
314 001272 007324 oT!’ pSERRPC , RADOR, GBDDAT, SGDDAT ( 
— 001274 007364 ore sALL BUMBERS ARE IN OCTAL FORA 
1 
3 rcn 3 ( 
i 
319 001276 0070613 E93 sCLOCK CER ERROR 
320 001300 009222 ond pERRPC WAS 67/8 ( 
321 001302 007336 oT3 ISERADC, sBDDAT, — 
+ 001304 007364 oro ALL NUMBERS ARE IN OCTAL FORM ( 
—3 pITEn 4 
326 001306 0070723 EN4 9CLOCK ADDR ERROR ¢ 
327 001310 007247 ONG pErnec ADOR 
328 001312 007346 oT4 pCERRPC, LAS 
44 001314 007364 oro pALL NUMBERS ARE IN OCTAL FORM q 
331 pITEn L} 
332 | 
333 001316 007138 EMS sCLOCK INTERRUPT ERROR 
334 001320 007247 CH4 
338 001322 007346 oTé q 
336 001324 007364 oro gALL KUMBERS ARE IN OCTAL FORM 
pITEn 6 ( 
J 
2 
¢' 
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e DVKPA, Pil ERROR POINTER TABLE sto 0025 
340 001326 007166 ENG pINTERRUPT ERROR 
e 341 001330 007268 DN6 ;TE8T  ERRPC TO FROM 
342 001332 007384 D6 ;TOTNM, GERRPC, TRIO, TRERO 
343 001334 007366 oro pALL NUMBERS ARE IN OCTAL FORM 
4 
Ld 345 pREGIGTER DEFINITION, CONSTANTS, STORAGE, 
346 , 
a 347 001336 1778466 LKSs WORD «= ABASE y>N0 «<p ADDRESS OF CLOCK COR, IF DIFFERENT 
348 )>PATCH <;CHANGE CONTENTS OF *SBASE*,~ 
349 001340 000100 KVECT: ,WORD aAvecti 1200 <9VECTOR ADDRESS OF CLOCK, 
e 380 001342 000108 KVECTP: .WORD AVECTI°2 I>PATCH <3 
: 
352 001344 017670 | NILINe WORD 0176470 sNZ ADDR, CORE FOR WRITE PATTERN 
e 383 001346 007370 LOLIN: ,WORD WENST sLOW ADDR CORE FOR HEM TEST, 
384 001380 007372 LOwgs WORD NENSTe2 ‘nex? ADDRESS, 
e 356 001382 000000 PCOUNT: ,WORD 0 )COUNTS © OF POWER FAILS, 
387 001384 000000 PFLAG: .WORD 0 Je1 INDICATES PAIL, 0 © NO POWER rAlL 
388 001386 000000 ADCKs WORD 0 101 WHEN GE HAVE TESTED CLOCK ADORESS™ 
e 389 001360 000008 WEMWRe GWORD 4 ret we 4 WHEN MEMORY BEING WRITTEN, 
360 001362 000000 RADDRG WORD 0 DURING WEN CHECK 
361 001964 000000 BADs «= g WORD s«éO —3 223 DOWN BAD, 
° 362 001366 000000 BLECKs <WORD 0 
363 001370 000000 LAURE §=SWORD SO pLAST MEMORY —— W/NEW PATTERN, 
364 001372 000000 WOCLR: ,WORD 0 sINOSCATES WEITRER THE CLOCK SHOULD BE TESTED OR HOT, 
e 268 — 900 THEN TES; p01 HO,USER MAY CRANGE PAIS LOC, 
36 : — 
367 | 
° 368 001376 013703 001346 START; MOV. ©‘ LOLIN, RB SE FOR REX CHECK OW POWER UP, 
369 001400 012713 1977977 MOY = 804963) pPATTERN ALL ONES 
370 001404 010337 001370 mov < Ra LAWA 
e 371 001410 008000 CLR 
372 ,OeTTL SUSTEALISS TRE CONNON TRES 
373 7 CLEAR TNE COMMON TAGS (6CHTAG) AREA 
e 374 001412 012706 001100 MOV SOCRTAG, RG uu. LOCATION 70 BE CLEARED 
378 001416 008026 CLR (nee — NENORY LOCATION 
376 001420 022706 003140 cup GUR,RE » pDONE? 
e 377 001424 001974 BRE +6 »pLOOP BACK IF NO 
378 001426 012706 001300 WOW OSTACK, OP »p6£TUP TRE STACK POLNTER 
379 syMETIALISE A PEW VECTORS 
° 380 0014632 012797 006384 000020 SOSCOPE, 98z07VEC 4107 VECTOR FOR SCOPE ROUTINE 
381 001440 012737 000340 000022 3 0340, 00Z0TVECSS —— —— 
302 001446 012737 004032 000030 MOV OOERROR, OOENTVEC 9) ENT vEcTOR FOR ERROR ROUTINE 
° 303 0014846 012737 000340 000032 MOY 0340, 00ENTVECSS ppLEVEL 7 
304 001462 012797 006676 000094 MOV OOTRAP, OOTRAPVEC 9 c 5 4RAP VECTOR FOR TRAP CALLS 
388 001470 012737 000340 009036 nov 0340, 00TRAPVECSS) 
e 306 001476 008097 001160 CLR OTInEs sSSUTEALISE MUNBER OF ITERATIONS 
387 001502 008037 008162 CLR CEecAPE | SPCLEAR THE ESCAPE OW ERROR ADDRESS 
300 001906 112737 000004 001318 MOVS 04, @ERNAK ppALLOW ONE ERROR PER TEST 
* 309 001914 012797 001834 001106 NOV Boe SLPADR sNSNITZALISE THE LOOP ADDRESS FOR Scope 
390 001922 012737 001892 001110 MoV )OLPERR :p8ETUP THE ERROR LOOP ADDRESS 
391 uun necteren, IF BOT POUuD on 32 18 
° 392 jEQUAL 70 A 04%, SETUP FOR A SOFTWARE OWITCH REGTOTER, 
393 001830 0137466 000006 MoV OOERRVEC,©(8P) 5 )SAVE ERROR VECTOR 
¢é 


J ee ee 0o 0o 0o 0o 0o 0o 0o 0o 0o 0o 0o 0o 0— 0— 0— 00 


Ee — ——————— —————— — — 
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001566 
001870 
001574 
001576 
001604 
001612 


001640 
001646 
001654 
001660 
001664 
001670 


001674 
001700 
001704 


001706 


001706 
001712 
001714 


0019720 
001724 


001760 
002002 


INITIALIZE THE COMMON TA 


012737 


000403 
012716 
000003 
012737 
012737 
012637 


008037 
432737 


001403 
012737 


012737 


008227 
001033 
104404 


112737 
000410 


MASTI1 


001870 
177870 
177870 
19779979 


001876 


000176 
000174 
oooe o⸗ 


003216 
003344 


27(663) 


000004 
001140 
001142 
177384 


000024 
000026 


004386 
001366 


000340 
661706 


1797779 
001762 
000042 
001214 
001340 


000008 
000176 


— 15:03 PAGE 9 


SEQ 0026 
MoV 0648,C0ERRVEC 3)8ET UP ERROR VECTOR 
MOV eDSWR, OUR 99SCTUP FOR A HARDWARE SWICH REGISTER 
MoV OODISP, DISPLAY 7)AND A HAROWARE DISPLAY REGISTER 
CMP 0°34, o8un g9TRY TO REFERENCE HARDWARE Suh 
BKE 666 peSRANCH 23F NO TIMEOUT TRAP OCCURRED 
p9AND THE HARDWARE GuR 38 NOT © oj 
BR 636 p9ORANCH 3F NO TIMEOUT 
6001 —* 0666, (8P) 9968T UP FOR TRAP RETURN 
R 
6565 NOV @SUREG, SUR spPOZNT TO SOFTWARE SUR 
MOV COLSPREG, DISPLAY 
6665 NOV (6P)O,OCERRVEC 4 ;RESTORE ERROR VECTOR 
CUR OPass sOCLEAR PASS COUNT 
erte OAPTSIZE,GENVN pp TEST USER SIZE UNDER APT 
ry 1] 676 99YS6,UGE NONCAPT SWITCH 
. nov COBUREG, OUR 9940, UGE APT SWITCH REGISTER 
6768 
nov OPDOWN, PURVEC  ;INITIALIZE POWER FAIL VECTOR, 
KOV 0340,PURVECS2 :NO INTERRUPTS ALLOWED ON POWER FAIL, 
CUR SPARS pCLEAR PASS COUNT 
CLA PCOUNT gCLEAR POGER FAIL COUNT 
CUR avcn gCLOCK ADOR, NOT TESTED, 
CUR BAD 
9/ePRe 
MOV 0340,°(6) p/PUT NEW STATUS OW STACK 
MOV 0606,°(6) p/PUT RETURN ADOR, OW STACK, 
RTI 9/00 AN RTZ COU WILL RETURN 70 NEXT 
p/AOOR, WITH NEW STATUS, IF STATUS 
oe 9/080 THEN ZNTERRUPTS ALLOWED, 
4 


-S8TTL TYPE PROGRAM HANE 
—1X THE MANE OF THE PROGRAM IF FIRST PASS 


Gey portnet 4 * 

BNE 690 peSRanca IF 
TYPE 0708 +p T3PE hects 8 OTRING 

oSBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 
76? ead ppARB we Kuswine UNDER XXDP/ACTP 
BRE 716 » PORANCH sr vie 
Cura GENV, 63 peaRe we a ay UNDER APT? 
Bea 716 ppORANCH LF YES 
cup OUR, CSWREG 99 — SWITCH REG SELECTED? 
BNE 7386 ppSRanca 3/ nO 
— * 13667 BOF ToSuR SETTINGS 

6 
—*8 nOVB 04, 6AUTOB 9988T AUTO@HODE INDICATOR 
4 


BR p9GET OVER THE ASCIE 
37068 eAscls SCRLPDONDS SeDVRPACADECALED 
386 
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OVKPA,P11 GET VALUE FOR SOFTWARE SWITCH REGISTER 80 0027 
4a8 
44% 
480 002002 LOOP: 
481 
452 
453 FF OSV FGGH 580 8 6 
2 p@TEST 1 OWRITE CORE WITH MEMORY PATTERN 
4s 9® 
ate pOIN THIG TEST WE WILL WRITE AVAILABLE CORE WILL ALL OWES OR ALL 
487 p®ZEROS DEPENDING OW ODD OR EVEN PASS (RESPECTIVELY), 
ase pOAFTER CORE 16 WRITTEN, WE WILL VERIFY RESULTS, 
4s9 9@ 
460 p°IF WE ARE In THE PROCESS OF CHANGING CORE PATTERN DURING A POWER 
ase pOPAIL, ONLY THOSE LOCATIONS THAT WERE WRITTEN WILL BE CHECKED, 
46 ye 
4639 PP OSSOGSHGEGHGT OTOH TSOHGRHDOSGADHOOFGOGSOHOTESHRESAOOHHTHROEOOOC BE 
464 002002 000240 T6Tis NOP 
465 002004 012737 000001 001160 MOV 01, OTINES 9900 1 ITERATION 
48 
467 002012 112737 000001 0014102 uxovo ou, ororuu pSET TEST 01 
46@ 002020 012737 000001 001200 mov 01, 6TEseTN pALSO 38 MAIL BOX) 
469 002026 012737 002042 001106 MOV 016,6LPAOR pLOOP FOR ERROR 
470 002034 012737 002042 001110 MoV 016/0LPERR 
471 002042 012737 000004 001360 16% MoV 01, MENUR p04 WHEN WE ARE CHANGING MEMORY 
472 002080 013737 001346 001370 mov LOLIN, LMuR pPATTERN oo PICK UP LOW ADDRESS 
473 002086 008001 CUR Ri SPATTER © o ON EVEN PASS 
474 002060 1432737 000004 004202 Bits @1,0PA88 p16 HIG AN EVEN PASST 
475 002066 001402 8EQ ae YES © CONTINUE 
3 002070 0127048 19797777 nov oo4,Ri p80 © ODD PASS, CHANGE 70 ⸗1 
a7 
478 002074 010177 177270 266 MOV Ri, OLAWR pYRITE PATTERN 
479 002100 008037 001366 CLR BLKCK pIROICATE 
480 pPATTERN OK FOR POWER UP CLOCK 
a1 s1F WAS © | THEN REVERSE PATTERN WOULD 
402 pHAVE BEEN USED, 
40) 
404 002104 023737 001370 001344 365 cup LAUR, MILIM pARS WE AT HIGH LIMIT? 
405 002112 0014611 aco be 
406 002114 103402 BLO 4s 
487 002116 000000 MALT SOFT ERROR) ADORESS IN LOLIN 
408 GREATER THAN ADDRESS Im HILIN 
ano sPATAL COMDITION © DZD YOU PATCH THESE 
490 002120 000771 ae 38 pLOCATIONS? I HAD THEA RIGHT, 
491 002122 010177 19797242 gay mov Ri, OLMUR pURITE PATTERN 
492 002126 062737 000002 001370 ADD 02, LMuR 
on 002434 000763 BR TY) »LOOP BACK, 
49 
ae 002136 005037 001360 TT) CUR MEMUR ee WE°RE THROUGH WRITING 
40 — 1 
497 002142 013703 001346 nov LOLIM, RD pPUT LOWER LIMIT IW R3 
498 002146 010302 mov R3,R2 pANO IN RO 





pNOW LETS CHECK HEN 


* 


3 


& 
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e DVKPA, — v1 eWRITE CORE WITH MEMORY PATTERN ato 0028 
$02 002180 020237 001346 681 cup R2,HILIM ;ARE WE AT HIGH ADDR? 
e $03 002184 001418 BEO 1872 iT 
$04 
$0S 002186 022201 cup (2)o)R4 ;PATTERN OK? 
e sos 002160 001773 BEO —* iia © LOOP, 
80 
$0@ 002162 010237 001362 MOV R2,RADDR yNO © RECORD ADDR, 
e $09 002166 162737 000002 001362 aus €2,RADOR }°2 © REAL ADOR, 
$10 002174 017737 177162 001126 MOV @RADDR, SBODAT ;RECORD BAD DATA, 
zi 002902 010137 001126 MOV Ri, @GODAT sRECORD GOOD DATA, 
$1 
© $13 002206 104001 ERROR 1 ;PROBLEM WITH MEMORY BEFORE 
$14 sEVEN A POWER FAIL, 
$1 
& $i 8 114 GOPIEVRSGOSSBAIVETSIHBHEDTHOUIEIGHSSHDSIHRGSSFEOSTLHOSLIOASVSEOEGBOD 
$17 p@TEST 2 TEST THAT THE CLOCK GIVES °B RPLY® ON “DIN® AND *DOUT® 
$18 PPI III ee 
@ $19 002210 000004 18T21 ©sSCOPE 
$20 
° $21 002212 008737 001372 T8t NOCLK pSHOULD WE TEST CLOCK (#0 YES) 
$22 002216 001402 BEO an 
$33 002220 000137 003020 one NCLK $84 NO TEST OF CLOCK, 
2 
& $25 002224 aes 
$26 002224 013746 000004 MOV ERRVEC,°(6) pSAVE CONTENTS OF LOC, 4 
e $27 002230 012737 002270 000004 MOV $16, ERRVEC ;SET FOR BUS ERROR OW "DIN 
$2 
$29 002236 017737 177074 001126 MoV OLKS, SBDDAT sISSUE "B DIN L® AND CLOCK ADDRESS, 
$30 sWILL TRAP FROM HERE IF CLOCK DOES 
© $31 pNOT RESPOND WITH °B RELY L® 
$32 
$33 002244 012737 002274 000006 MoV 026, ERRVEC )82T FOR BUS ERROR OW *DOUT® 
@ $34 002252 912777 000004 177086 nov 61,OLKS ISSUE °B DOUT® AND CLOCK ADDRESS, 
$35 s¥ILL TRAP FROM HERE IF CLOCK DOES 
$36 002260 012737 000001 0013986 MOV 91, ADCK pNOT RESPOND WITH °8 RPLY L® 
€ $37 002366 000403 BR 36 
33 
$39 002270 104004 161 ERROR 4 }CLOCK DID NOT RESPOND WITH °B RPLY L* 
G $40 pWNEW 3860E0 ADDRESS AND °B DIN L* 
$41 sCHECK ADORESS SELECTION JUMPERS 
$42 sAND ADDRESS ENTERED IN LOCATION *eBASE*, 
& S43 002272 000401 BR 38 
6 
$45 002274 104004 281 ERROR 46 pCLOCK DIO NOT RESPOND WITH °B RPLY L* 
& $46 pWHEN I86UED ADORESS AND °B DOUT L* 
$47 }WE KNOW ADORESS AND °B DIN® DID 
° sae pWORK 60 ADDRESS MUX SHOULD BE GOOD, 
s4 
$$0 002276 012637 000004 368 Mov (6), ERRVEC pRESTORE CONTENTS OF LOC 4, 
$31 
& $$2 Ny 3 BOGHODDGEC OO ®OGOSHSODGASSSATTIDESGPSIRASPIS SHS ODS SHISHA IRSGHOGTSIGBEOH 
$53 seTEST 3 @TEST THAT BIT6 (INTR, ENGL) CAN BE SET AND CLEARED 
584 $e GCOFFSHVSBGOSSEHS GFESSEGSSEAOGISTSHGSHSHOSSHHHE GOVT OGSHSEDSHHHHHGOAH 
6 $55 002302 000004 78T3s SCoPE 
oO 


Be 


MAINDECe{1eDVKPACA 
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556 
337 
380 
380 
860 
361 
$62 
$63 
$64 
565 
566 
$67 
3660 
$69 
$70 
$71 
$72 
573 
574 
378 
376 
377 
570 
870 
$80 
561 
$84 
563 
304 
ses 
$06 
$07 
see 
09 
$90 
$91 
$92 
$93 
$94 
59s 
$96 
$97 
596 
$99 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 


002304 
002310 
002312 
002314 


002366 
002374 


002376 


002400 
002404 
002410 
002416 
002424 
002426 
002432 
002434 


008737 
001002 
000000 
000773 


005037 


012746 
012746 
000002 


082777 
017737 
032777 
001010 
006737 
001384 


012737 
104003 


008037 
008077 
017737 
032737 
001004 
008737 
001331 
000401 


MACYi1 27(663) 
@TEST THAT BIT6 (INTR, ENBL) CAN BE SET AND CLEARED 


000100 
176770 
000100 


001124 
176726 
176722 
000100 


176774 
001126 
176760 


001124 


2eMAYo?7 


15803 PAGE 12 


T8sT 
BNE 
MALT 
BR 


CLR 


MoV 
MOV 
PTL 


816 
MOV 
817 
BNE 
Tst 
BNE 


MoV 
ERROR 


CUR 
CUR 
MoV 
817 
BRE 
T8t 
BRE 
OR 


ADCK 
28 


PFLAG 


6340,°(6) 
6648,°(6) 


OBIT6, OLKS 

OLKS,SBDDAT 
o8IT6, OLKS 

28 

PFLAG 

a8 


1074 


00047 
OLKS 
OLKS, SBDDAT 


OBIT6,SBDDAT 
48 


PFLAG 
28 
7074 


1010 CLOCK ADDRESS TEST PASS? 

sYES © DO THIS TEST, 

yNO © HALT) WE CANNOT PROCEED IF 
pCLOCK CAN NOT BE ADDRESSED, PLEASE 
pLOOP OW LAST TEST OR FIX PROBLEM, 


sCLEAR POWER FAIL FLAG 


9 /ePRe 

s/PUT NEW STATUS ON STACK 

9/PUT RETURN ADOR, ON STACK, 

3/DO AN RTI CPU WILL RETURN TO NEXT 
p/ADDR, WITH NEW STATUS, IF STATUS 
9/80 THEN INTERRUPTS ALLOWED, 


9SET INTR, ENABLE 

pREAD COR, 

610 IT SET? 

sYES CONTINUE 

pO2D A POWER FAIL OCCUR? 
p¥ES © REDO TEST, 


pINTERRUPT EWABLE BIT (BITO6) 
sFAILED TO SET, 

a NOTE 

pA OZECREPANCY COULD OCCUR IN ERROR 
pTYPEOUT SINCE 8/8 © 100 BUT IF 
pREADY FLAG WAS SET BAD DATA WOULD 
sEQGUAL 200 DISPLAYING READY 

99 


CLEAR 8/8 
JCLEAR CLOCK CBR, 
pREAD COR 

y02D IT CLEAR, 

180 © REPORT AN ERROR, 


pYES © MAKE SURE ao POWER FAIL OCCURRED, 


pINTERRUPT ENABLE BIT FAILED TO 
sCLEAR (81706), 

fl NOTES 

gi ERROR TYPEOUT BIT? HAY ALSO 
p88 SET, THIS 38 WOT A BIT? ERROR, 
9¥E CAN HOT PREDICT WHEN BIT? 
pWILL SET OR CLEAR AND DO NOT 


pREPLECT IT Im 6/8, 





MAINDECe{ {eHVKPASA 
DVKPA,Pii 74 


— —ALl 


002440 


002442 
002446 


002446 
002482 
002486 


002460 


002460 
002466 


002470 
002474 
0024676 
002800 
002802 
002806 


000004 
008037 


012746 
012746 
000002 


012777 
008002 


108777 
100418 
008202 
001373 
006737 
001388 


017737 
012737 


104003 
000430 
012797 
012746 


012746 
000002 


000240 
008737 
001331 


MACYi1 27(663) i3 
@TEST THAT THE CLOCK READY FLAG WILL SET AND THE CLOCK INTERRUPTS 


176642 


176622 
000300 


176650 


176602 


2eMAYo77 


15303 PAGE 


peTEsST 4 


@TEST THAT THE CLOCK READY FLAG WILL SET AND THE CLOCK INTERRUPTS 


10008ß————————οαο 


SCOPE 
CLR 


PFLAG 


6340,°(6) 
0648,°(6) 


OBIT6,OLKS 
Ra 


OLKS, 6BDDAT 
€300,6GDDAT 


3 
T8TS 
066,OKVECT 


60,°(6) »/PUT NEW STATUS OW 


06586,°(6) 


PFLAG 


78 


sCLEAR POWER FAIL FLAG, 


9 /ePRe 

p/PUT NEW STATUS OW STACK 

9 /PUT RETURN ADOR, ON STACK, 

9/D0 AN RTI CPU WILL RETURN TO NEXT 
p/ADDR, WITH NEW STATUS, IF STATUS 
9780 THEN INTERRUPTS ALLOWED, 


pSET INTERRUPT ENABLE OF CLOCK, 
pREEP TIMEOUT COUNTER, 


9030 READY FLAG SET? 

pYES @ NEXT CHECK, 

940 © DID WE ALLOW ENOUGH TIME? 
940 @ LOOP, 

sYES © DIO A POWER FAIL OCCUR? 
s¥ES © OO TEST OVER, POWER FAIL 
pINITIALIZED CLOCK 

pRECORD CLOCK COR, 

pRECORD 8/83 


pCLOCK READY FLAG FAILED TO SET, 


8 
SET UP FOR CLOCK INTERRUPT, 


p7oPRe 

STACK 

9/PUT RETURN ADDR, OW STACK, 

9/00 AN RTI COU WILL RETURN TO NEXT 
p/ADDR, WITH NEW STATUS, IF STATUS 
9/80 Then ‘SNTERRUPTS ALLOWED, 


pINTERRUP?S FROM HERE 

p4O INTERRUPT, DID A POWER FAIL OCCUR? 
pYES © DO TEST OVER, POWER FAIL 
pINZITIALIZED CLOCK, 


sCLOCK FAILED TO INTERRUPT 
pREADY FLAG DID SET, COULD YOU NAVE 
pA JUMPER WRONG? 





ee @e9eoeeeeeoese#eee%e&e#ee&ee@eeee28 © 


MAINDEC*1 1epVKPACA 
DVKPA,Pii T4 


664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
6681 
682 
663 
694 
60s 
606 
667 
608 
609 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
708 
702 
703 
704 
708 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 


002870 
002876 
002604 


002644 
002682 


002660 
002662 
002664 
002670 
002674 


002702 
002704 


002710 
002712 


002714 
002720 


002722 


062706 


013777 
062797 
008077 


000004 
008037 


008077 
008002 


108777 
100418 
008302 
001373 
008737 
001363 


017737 
012737 


104003 
000420 
008077 
008037 
017737 


001006 
008737 


008737 
001334 


MACY11 27(663) 
@TEST THAT THE CLOCK READY FLAG WILL SET AND THE CLOCK INTERRUPTS 


000002 
176826 


001354 
176514 


176506 


176466 
000200 


176446 
001124 
176436 


176842 
176534 


001126 
001124 


15:03 PAGE 14 


2eMAYo77 

663 ADD 

768 MOV 
ADD 
CLR 


KVECT, OKVECT 
62, OKVECT 
OLKS 


sUPDATE STACK POINTER 


pRESTORE VECTOR TO LOOK FOR 
pILLEGAL INTERRUPTS, 
pCLEAR CER, 


9 109090 00000000000000000000000000000000000000000 0005000000 0000000 
@TEST THAT WE CAN CLEAR READY FLAG 


p@TEST 5 


;® 

p@IN THIS TEST WE°RE GONNA TRY TO CLEAR THE READY BIT 601707) 

9®TO DO THIS WE°RE GOWNA CLEAR IT, STALL TIME ALLOWING 

p®IT TO SET AGAIN, THEN CLEAR IT TESTING ‘THAT IT ACTUALLY CLEARED, 


FP PSSOSSSSHSSHHHHSHSHSHSHHHHFHHHSHHSHHHHHHHHHHHHHHHHHOHHHOHOOCOOS 


T6TSs 
18s 


SCOPE 
CUR 


OLKS, OBODAT 
0BI77,6GDDAT 


OLKS 

eGoDAT 
OLKS, SBDDAT 
ae 

PFLAG 


sCLEAR POWER FAIL FLAG, 


sCLEAR CLOCK 
sCLEAR TIME OUT FLAG, 


p02D READY FLAG SET? 


pTIME OUT (ALL ALLOWED TIME EXPIRE?) 
980 © LOOP 

sYES © DID A POWER FAIL OCCUR? 

pYES © DO TEST OVER, 


pRECORD CSR, 
SRECORD 8/8, 


pCLOCK READY FLAG FAILED TO SET, 


sTHE FLAG JUST SET NOW WE WILL 
pTRY TO CLEAR IT, 

READ THE COR Ir SERO © OK, 
pf NOT WE°LL REPORT AN ERROR, 
p07 COURSE WE'VE GOT TO CHECK 
pTHE POWER FAIL FLAG, SINCE A 
) POWER PALL COULD HAVE CLEARED 


CHECK POWER FAIL FLAGeIF POWER FAIL OCCURED 


pOURING TEST AN ERROR COULD RESULT, 


giPF NO POWER FAIL OCCURED REPORT ERROR, 


sCOULD NOT CLEAR CLOCK 
pREADY FLAG (81707) 





718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
748 
746 
747 
748 
749 
780 
781 
752 
753 
784 
788 
756 
757 
758 
789 
760 
761 
762 
763 
764 
768 
766 
767 
768 
769 
770 
771 


aw 
e"e © © 0 0 0 0 0 0 8 8 0 8 8 8 8 8 0 oe @| 


: 


002724 
002726 


002734 
002740 


002746 
002752 
002756 


002760 


002760 
002762 
002764 
002766 
002772 
002774 


002776 
003002 


MAINDEC*1 1 epVKPACA 
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000004 
012737 


008037 
012777 


012746 
612746 
000002 


008002 
108202 
001376 
008737 
001360 
000403 


062706 
104008 


013777 
062777 


012737 


000004 
012737 


008037 
008001 
132737 
001402 


MACY11 27(663) 2°MAY°77 15:03 PAGE 15. 
@TEST THAT THE CLOCK DOESN°T INTR, WHEN INTR, ENABLE CLEAR 


$F OSSD OSOSOEHOOCOSOECOOESSHOHOHOOOOCESHSOHOHHODOO OOOOH OOEOOR 
p®TEST 6 @TEST THAT THE CLOCK DOESN°T INTR, WHEN INTR, ENABLE CLEAR 
9 10900800 00S00F 0 SOOO OOSHOE SOOO SOOSSHOOSOODOSOOOODEFOSOORCOOOOOOR 


TSTés scOPE 
000020 001160 MOV 020-8TIMES 9900 20 ITERATIONS 
001354 iss CLR PFLAG sCLEAR POWER FAIL FLAG, 
002776 176372 MOV 036,OKVECT pSET FOR ILLEGAL INTERRUPT, 
3 /ePRe 
000000 MOV €0,°(6) »/PUT NEW STATUS ON STACK 
002760 MoV 06486,°(6) 9/PUT RETURN ADOR, ON STACK, 
RTI 9/00 AN RTI CPU WILL RETURN TO NEXT 
p/ADDR, WITH NEW STATUS, IF STATUS 
9/80 THEN INTERRUPTS ALLOWED, 
Gans 
CLR R2 
263 Ince R2 sSTALL 
BANE 28 
001354 167 PFLAG pO ZSHTERRUPT © DID POWER FAIL 
BNE 18 sY88 © REOO TEST, 
BR ae 
000004 201 abD 04,76 pUPOATE STACK POINTER, 
ERROR § sCLOCK INTERRUPTED WHEN 
pOIT6 (INTR ERBL) CLEAR, 
003340 176326 48% mov RVECT, OKVECT pRESTORE VECTOR 


000002 176320 ADD 62, OKVECT 
000006 001102 MCLKs MOV 06, 6TSTNN pENTRY POINT IF CLOCK NOT TESTED, 


9 9 900000000000000000000000000000000000000000 0000000000000 00E 20008 
peTEST 7 OVERIFY MEMORY LOCATIONS WRITTEN IN TESTI 


hd 

gOIN THIS MACRO WE ARE GOING TO VERIFY THE CONTENTS OF 

pOMEMORY AGAIN, WE ARE GOING TO DEVOTE MOST OF OUR TINE 

peOF THE TOTAL TEST TIME HERE HOPING WE CAN CATCH A POWER 

p°FAIL WHILE WE°RE READING MEMORY, 

s@ 
ah) 
768771 SCoPE 


002000 001160 mov €002000,6TINES 9300 002000 ITERATIONS 
001356 CUR PFLAG 

CLR Ri pZERO PATTERN 16 EVEN PASS, 
000001 001202 BITS OBIT0,8PASS pEVEN PASS? 

BEG ie p¥E6 © CONTINUE 


( 


@ 


vr 


MAINDEC #41 eDVKPACA MACY11 27(663) 2°MAY°77 15303 PAGE 16 
DVKPA,Pii 7 VERIFY MEMORY LOCATIONS WRITTEN InN TESTI SEQ 0033 
772 003084 0127041 19797777 MOV @o4,R1i 3NO © PATTERN ALL ONES, 
7. 003060 013702 001346 163 MOV LOLIM,R2 sPICKeUP LOW ADDRESS 
778 003064 020237 001344 28% CMP R2,HILIM pARE WE AT HIGH ADDRESS? 
io 003070 001418 BEQ T8T10 11 
77 
778 003072 022201 CmuP (2)¢ Ri pPATTERN OK? 
779 003074 001773 810 28 sYES © LOOP, 
780 003076 0103237 001362 MoV R2,RADOR p¥O © RECORD ADDR, 
781 003402 162737 000002 001362 8uB @2,RADDOR 9°2 @ READ ADDR, 
762 003110 017737 176246 001126 MOV GRADDR, SBDDAT 9GET CONTENTS 
763 0031316 010137 001124 MOV Ri, 6GODAT 36000 DATA, 
764 d 
788 003122 104001 ERROR i sPROBLEM WITH MEMORY, DATA 
— pREAD NOT DATA DEPOSITED, 
78 
768 $19 SSGG9GOSGOEF OGL GOGHEG OGD TOGOTELEOG SESH OHO SOOREOSAQ OGL HODEOHD 
769 p®TEST 10 @EnD OF TESTS 
790 — S5GOFHFEGGGGOSEOESTGIOG ODODE OFEESOORE SHI POVTIO GER OSO AO EGE OHSHOS 
oon 003124 000004 T6T108 SCOPE 
793 
te eS8TTL END OF PASS ROUTINE 
796 $$ 90O000086000080000FO OOOOH EDSOHHOHOOEHODOHOHOHHHHHOOHOHDOOCODOSS 
797 p@INCREMENT THE PASS HUMBER (6PASS) 
798 p@ZF THERES A MONZTTOR GO TO IT 
a p°3F THERE I6N°T JUMP TO LOOP 
0 
801 003136 GEOPs 
802 003326 006237 001366 rnc BLECK 
803 003332 008037 001102 CLR oTetun p9ZERO THE TEST NUMBER 
804 003336 008037 001160 CUR OTIMNES 99SER0 THE BUMBER OF ITERATIONS 
80S 003342 008237 001202 rnc OPASSE POINCREMENT THE PASS NUMBER 
806 003446 0423737 100000 001202 Barc 100000, 6PA8S 99D0N°T ALLOW A NEG, NUMBER 
807 003184 008327 bEC (PC)e 99 LOOP? 
808 003386 000001 sEOPCTs ,WORD i 
809 003160 003068 BGT 6DOAGN 99 Yes 
810 003362 012737 MOV CPCIO,OC PCIe peRESTORE COUNTER 
811 003364 000001 SENDCTs ,WORD i 
4 003166 0031686 6£orct 
i 
814 003170 104401 003176 TYPE 2668 peTYPE ASCIZ STRING 
615 0033174 000406 BR 64 99GET OVER THE ASCIE 
616 99698¢ ,ASCIZ <200>0END PASS 8 
817 003212 6468 
618 003212 013746 001202 MOV 6PASS,°( SP) pp6AVE OPASS FOR TYPEOUT 
819 003216 104402 Tyeoc 9960 TYPEeeOCTAL ASCIICALL DIGITS) 
820 003220 104401 003226 TYPE 06786 peTYPE ASCIZ STRING 
621 003224 000410 BR 666 99GET OVER THE ASCIEZ 
622 996760 ,ASCIZ © POWER FAILS 6 
623 003246 6608 
024 003246 013746 001352 MOV PCOUNT,©( SP) 99 8AVE PCOUNT FOR TYPEO 
625 003252 104402 tTyPoc 9960 TYPE°eOCTAL ascEscabb DIGITS) 





& 
MAINDECe{ 14 eDVKPASA MACYii 27(663) @2°MAY°77 15803 PAGE 17 

e DVKPA, P14 END OF PASS ROUTINE axo 0034 

826 003254 008737 001372 Tat NOCLK pWAS CLOCK TESTED? 

827 003260 001418 BEG 18 sYES SKIP TYPEOUT, 
€ 820 p"O INDICATE CLOCK NOT TESTED, 

829 003262 1044601 003270 | TYPE 0 698 ppTYPE ASCIZ STRING 

830 003266 000412 BP 600 $9GET OVER THE ASCIZ | 
€ 031 196968 ,ASCIZ @ CLOCK NOT resTEDe 

632 0033914 6O9G8 

833 0033914 16% ( 
@ 834 003314 013700 000042 8GET421 MOV 0042, R0 $9GET MONITOR ADDRESS 

835 003320 001408 Bro 8DOAGN ;pBRANCH IF NO MONITOR 

836 003322 000008 RESET S)CLEAR THE WORLD 
@ 837 003324 004710 SENDAD! JER PC, (RO) 3960 70 WONITOR 

836 003326 000240 nop $p8AVE ROOM 
° 839 003330 000240 nop 9FOR 

840 003332 000240 nop ppACTSS 

841 003394 @DOAGNs 

842 003334 000137 gmp 0c PC)e RETURN 
& 843 003336 002002 @RTWAD? ,WORD LOOP 

844 003340 277 377 000 gGNULLs ,BYTE °1,°1,0 ppNULL CHARACTER STRING 

sas 003346 —— 
046 

647 ye 

nas pOTNIS ROUTINE HANDLES POWER DOWNS 
© bag yo 

850 

851 003944 008737 001364 poowns 18T BAD pHAVE WE HAD ENOUGH TINE TO 
& 852 003380 001402 BEG p02 pOOWN BRROR ON PREVIOUS POWER FAIL? 

853 003382 000000 POBADs WALT ‘788 © ERROR POWER DOWN ROUTINE 

864 0033984 000773 Bp poown p030 NOT HAVE TINE TO COMPLETE 
e ass pSEQUENCE BEFORE CPU STOPPED, 
° os? 003386 008237 0013646 poas ¶ zrac BAD $6ET POWER DOWN °NOT ENOUGH TINE® FLAG ) 

859 003362 006737 001366 Tht BLKCK 12H PROCESS OF CHANGING PATTERN? 
e aso 003366 001410 afo ie p80 GET OUT, : 

862 003370 0237777 878762 178782 CMe OLOLIN, OLOW2  ),PATTERN of 

863 003376 001404 Bro a8 
cs) 864 003400 008037 001366 CLR BLECK pNOCHAD WRITTEN WEW PATTERN<BUT HOT 

865 003406 008237 001360 Inc erty pHAD TINE ENOUGH TINE TO CLA BLACK 

866 003410 168 . 
G 867 003410 008077 179722 CUR OLKS p8T0P CLOCK, 

868 0034614 010046 nov RO,°(6) pQAVE GENERAL REGISTERS 

869 003416 010146 nov Ri,et6) , 
& 870 003420 010246 MoV R2,°(6) 

871 003422 010946 NOV RB,°(6) 

872 003424 010446 mov Ra,°(6) 
S 873 003426 0108466 nov RS, °(6) 

874 003430 013746 001124 MOV @GDDAT,°(6) 

875 003434 013746 001126 mov eBD0AT, (6) 
& 876 003440 013746 001962 Mov RADOR, ©(6) 

877 003466 010637 003804 MoV RO, ORG 

878 003480 012700 000024 NOV 020,,R0 pNOW WE WEILL SIMULATE DOING ) 
© 879 003484 013737 001124 001124 28% mov OGODAT,OGDDAT 360, INSTRUCTIONS, THE POWER DOWN 
e 
a) 





Peay 


a 
| @®eooeoeoeseseeese8#s#1e8&8e#e#%e#eeeese?steee ®@ 





003462 
003464 


003466 
003474 


003832 
003840 
003842 


003862 
003566 
003574 
003876 
003604 
003610 
003612 
003616 
003622 
003626 
003630 
003634 
003640 
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008300 
001373 


012737 
008037 


000000 
000776 


013706 
008737 
001338 
012737 


008237 


023727 
001008 
012737 


000000 
060767 


012737 


008037 
432737 
001403 
012737 
008737 
001407 
006137 
013708 
013704 
000411 
0137046 
013708 
008737 


MACY31 27(663) 
END OF PASS ROUTINE 


004026 
001354 


003344 


1797797 
001366 


001346 
001344 
001360 


— 


2°MAYo77 





MoV 
CLR 


HALT 
BP 


OPUP, PURVEC 
BAD 


pSEQUENCE SHOULD ALLOW US AT LEAST 

92 MILLISECONDS OF TIME TO oo A POWER 
sFAIL ROUTINE, HOWEVER,ONE MUST 

p88 WATCHFUL THE THE SYSTEM DOESNT 

900 MEMORY REFRESH CYCLES OW OTHER 
pMEMORIES DURING THIS TINE, THUS STEALING 
pTIME FROM THE POWER DOWN ROUTINE, 
pPOINT TO POWER UP ROUTING, 

pINOICATE WE HAD ENOUGH TIME 


pHALT AT END OF POWER DOWN ROUTINE, 

pONE MUST DO THIS OR THERE 28 A CHANCE 
pTHAT THE INSTRUCTION OR MEMORY LOCATION 
pREFERERCED BY THAT INSTRUCTION 

* BE DESTROYED WHEN POWER GOES AWAL, 


sSAVE STACK 


9@ 
p@THIS ROUTINE HANDLES POWER UPS, 


0 

mov 
7687 
BNE 
MoV 


BRE RE 

BAD 

PDOBAD 

OPUPBD, PWRVEC 


PFLAG 


PFLAG, 6S 
PD} 
€°D2, PURVEC 


pU2 
OPDOWN, PURVEC 


pRESTORE STACK 

)POWER DOWN oR? 

3:40 © GO THERE 

‘fT UP FOR BAD POWER DOWN 
;OEFORE WE CAN POWER UP, 
sINDICATE POWER FAIL, 


sHAVE WE DONE TO MANY POWER 

pUPS WITHOUT DOING COMPLETE Ones? 

pSTAY HERE FROM HOW ON ON POWER SEQUENCES 
sFORCE OPERATOR TO RESTART PROGRAK, 

pTOO MANY POWER FAILS OCCURRED atröat 
sONE COULD BE COMPLETED § @ MAX, 


pSET UP FOR POWER DOWN, 


MEMORY TEST OW POWER UP, 


6GDDAT 
01,0PA8S 


1a 
0°43 ,6GDDAT 
UKCK 


LOLIM, RG 
MILIAN, RS 
REGO R 


sPATTERN ZERO ON EVEN PASS 
seven pass 

sYES © CONTINUE 

}80° © LOOK POR ALL ONES, 

PWERE WE STARTING TO WRITE MEN? 
p80 © CONTZRUE 

pYES © USE OPPOSITE PATTERN, 
SICK UP AIGH ADDR, 

sPICK UP LO ADDR 


pPICK UP LOW ADDR, 
pPICK UP HIGH ADDR, 
pWERE WE CHANGING PATTERN? 





— — — — — 





tw 
MAINDECe4 1 eDVKPACA MACY31 27(663) 2°NAY°77 45:03 PAGE 19 F 
e DVKPA,P4i MEMORY TEST ON POWER UP, SEO 0036 
934 003644 001402 Bro CR y¥O © OK 
935 003646 013708 001370 mOV LMWR, RS s¥ES © RP WILL HAVE LAST ADOR, 
& 936 003682 020408 CKis CMD Ra, RS sDONE CHECK? 
444 003684 001418 PT 7) CREND sYES END 
3 
939 003686 022437 001324 cup (4)¢,6GDDAT pMEMORY OK 
940 003662 001773 BEQ CRy pYES © CHECK NEXT ADDR, 
941 009664 0164637 177776 001126 mov ©2(4),6BDDAT pWO © GET FAILING PATTERN ! 
@ 942 003672 010437 001362 Moy R4, RADDR 9GET ADOR 
+44 003676 162737 000002 001362 aus ¢2, RADDR pREAD © ©2 
{ 
@ 948 003704 104002 ERROR a gREAD PATTERN ERROR MEMORY 
946 sCONTAINEO OTHER THAN WRITTEN, 
e +44 003706 000761 BR CK, 
~ 003730 008237 003352 CKENDs INC PCOUNT pUPDATE POWER FAIL COUNT, 
( 
& * ,S8TTL CLOCK CHECK AFTER POWER UP 
95 
953 003714 008737 0013586 787 ADCK pHAS CLOCK BEEN TESTED? | 
a ose 003720 001412 peo PUEND 980 © LETS ROT TEST IT HERE! 
mT 
986 003722 017737 1784610 001126 MOV OLKS, OBDDAT pREAD COR 
O 987 003730 008037 001124 CLR 6GDDAT pEXPECT ZERO ALTHOUGH BIT? 
ose pMAY OE GET, WE WON’T LOOK 
989 gat If | 
€ 960 003734 032737 000100 001126 ert @BIT6,6BDDAT 38 OIt6 eet? 
961 003742 001401 eta PUERD 90 © * 
962 003744 104003 ERROR 3 )836 OF CLOCK CER SET AFTER — 
963 pPOWER UP © INIT FAILED 70 
964 sCLEAR $f, 
968 003746 PUEND? 
& 966 003746 042637 001362 Mov (6)¢,RADDR pREGTORE EVERYINING THAT was SAVED BEFORE POWER FALL, 
967 003782 019637 001126 mov (6)0,9800at 
968 003786 012637 001124 nov (6)o,8GDDAT 
@ 969 003762 08 nov (6)o,R8 
970 003764 012606 nov (6)0,R4 
971 003766 012603 mov (6)o,R3 
@ 972 003770 012602 mov (6)0,R2 
973 003772 012601 nov (6)o,R1 
974 003774 012600 nov (6)¢,R0 | 
@ 975 003776 0014601 Bro 28 g3F ROCO THEN NO NESSAGE BEING TYPED 
ore 22* 108300 * deed =—ss RO s3P MESSAGE BEING TYPED, BACK Op FoR. for Last CHARACTOR, 
0 a 
& 978 004002 008700 ror Ro p37 WO MESSAGE BEING TYPED OUT vE 
979 pUZLL TYPE OUT *PFeOK®, 
980 004904 001007 ane 18 | 
@ 901 004006 1046401 0046016 TYPE 0688 peTYPE ASCITES STRING 
962 004012 000604 be 640 p9GET OVER THE aeie 
Tt) 996809 ,ASCZZ <200>0PF°0Ke 
@ 984 004024 rYYT) 
es 004024 000002 TT} atl 
S 987 004026 000000 PUPBDs WALT pPOWER DOWN OCCURRED BEFORE 
fa) 
a 
rm 
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C 

6 

© 

€ 

© 

€ 

6 

& 

© 

© 

& 

@ 1019 0043920 
& 

@ 

© 

G 

© 

G 

S 1040 004216 
od 
to 
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104407 


013716 
000002 
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174786 


478072 
178062 


0014136 
004114 
178022 


174742 
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SEO 0037 


PUPBOD yh toy Hv serine | START 
1 


eS8TTL ERROR HANDLER ROUTINE 


1 1 090060000000000000000000000000000000000600000000000000000000008 
pOTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
peSAVE THE ERROR ITEM oo AND THE ADDRESS OF THE ERROR CALL 
p®AND GO TO GERARTYP OF ERRO 

pOTHE SUITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


128u1801 
99604 304 
9°6W1004 
188u0901 


p®CALL 
9® 


GERROR: 
78% 


HALT OM ERROR 
TNNIBIT ERROR TYPEOUTS 
BELL OW ERROR 
LOOP OW ERROR 


seTES? FOR CHANGE IN SOFToOUR 
GERFLG 99887 THE ERROR FLAG 
78 99D0N°? LET THE FLAG GO TO ZERO 
STETUN, ODISPLAY 4 )OISPLAY TEST NUMBER AND ERROR FLAG 
zocrege eee BELL OM ERROR? 


9980 © SKIP 
o OBELL eeRING BELL 
OERTTL ppCOURT THE NUNBER OF ERRORS 
(80), SERAPC 99GET ADDRESS OF ERROR IHSTRUCTION 


206 & 
OC, SERATYD 3360 TO USER ERROR ROUTINE 
OCRLP 


OAPTENV, oxuv peRUNNZING 3H APT NODE 


ae 99%O,6KIP APT ERROR REPORT 
OITEMB, 216 99887 ITEM NUMBER AG ERROR NUMBER 
re hit poREPORT FATAL ERROR TO APT 

a 

220 1457 ERROR LOOP 

OGuR s9HALT OF ERROR 

be se8RIP IF CONTINUE 


poHALT OF ERROR) 

peTGOT FOR CHANGE IN SOrTeSuAR 
083709, ooun 99L00P OW ERROR SUITCH SET? 
48 998R IF BO 
OLPERR, (SP) p9 FUDGE RE FOR LOOPING 
OESCAPE p9CHECK AN ESCAPE ADDRESS 
88 9988 IF NONE ; 
OESCAPE, (SP) pOFUDGE RETURN ADDRESS FOR ESCAPE 


RTI pe RETURN 
eS8TTL ERROR MESSAGE TYPEOUT ROUTINE 
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e DVKPA,Pii ERROR WESSAGE TYPEOUT ROUTINE SEQ 0036 
1042 
i 043 q i SVOGESHRAOSAGIGHFSTSSSSSH SSPE SHDTHSHSEHFGSSFSSAISRL HOH OSHHSSHSHBSSHDBHSH \ 
C 1044 pOTHIG ROUTINE USES THE "ITEM CONTROL BYTE® (SITEMB) TO DETERMINE WHICH 
1048 p®ERROR 168 TO BE REPORTED, IT THEN OBTAINS, FROM THE ERROR TABLE (SERATS), 
° 1066 p®ARD REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR, 
104 
1048 004220 SERRTYPs 
€ 1049 0042920 104401 001171 TYPE eOCRLr PP°CARRIAGE RETURN® & *LINE FEED® 
1080 004224 010046 MoV RO,°(8P) p98AVE RO 
1081 0042926 008000 CLR Ro pp03CKUP THE ITEM INDEX 
e 1082 004330 183700 001114 pr88 OOgITENB, RO 
1083 004934 001004 OnE 18 p92" ITEM HUMBER 38 ZERO, JUST 
1084 p9TYPE THE PC OF THE ERROR 
1088 004936 013746 008146 MoV SERRPC, °(8P) psSAVE GERRPC FOR TYPEOUT 
e 1086 ppERROR ADORESS 
1087 00462942 104402 TYPOC 99G0 TYPE°COCTAL ASCIICALL DIGITS) 
€ 1088 004944 000426 aR a6 99682 OUT 
1089 004946 008300 168 pec RO ppADJUST THE INDEX SO THAT IT WILL 
1060 004380 006300 ASL RO ” WORK FOR THE ERROR TABLE 
° 1064 004982 006300 ASL RO 
1062 006986 006300 ASL RO 
1063 004286 062700 001286 ADD @SERRTB, RO p9FORM TABLE POINTER 
1064 0046962 012037 004272 MOV (RO), 26 s9PTCRUP ERROR NESSAGE® POINTER 
6 1068 004966 001404 sto ae p9SKZIP TYPEOUT IF HO POINTER 
1066 004270 104401 TIPS g9TYPE THE "ERROR NESSAGE® 
1067 004972 000000 26% WORD 0 8 * bõointen GOES HERE 
e 1068 006974 104404 001171 TYPE eOCRLr pO°CARRZAGE RETURN® & °LINE e 
1069 004300 0123037 004330 388 NOV $Rorerds — ICKUD. *DATA MEADER® POINTER 
1070 004306 001404 BEO 4 996K39 TrPsoUT IF oO | 
& 1072 004306 104404 TYPE g9TYPE THE “DATA ueagen 
1072 0046310 000000 46s WORD 0 + °DATA MEADER® POINTER GOES HERE 
1073 006312 1044608 0011971 Pepe eOCRLy pP°CARRIAGE RETURN & °LINE FEED® 
@ 1074 004316 011000 56s NOV CRO), RO ppPICKUP "DATA TABLE® POINTER 
1078 004320 001004 BNE Tr 9900 TYPE THE DATA 
1076 004322 012600 66s nov (8P)e,R0 — PRESTORE RO 
@ 1077 004324 104403 001171 TYPE eOCRLr pP°CARRZIAGE RETURN® & "LINE FEED* 
1078 004330 000267 RTS pc pp RETURN 
1079 004332 768 
@ 1080 0046332 013046 nov @(RO)e,°(8P) ppSAVE O(RO)® FOR TYPEOUT 
1081 006334 104402 TYPOC 990 PoOCTAL ASCII(ALL DIGITS) 
1002 004936 008710 78T (Ro) 9938 * ANOTHER NUMBER? 
S 1083 004340 001770 BEO 60 990R IF nO 
1004 004342 104401 004350 TYPE Ty) 44 7W0(2) SPACES 
1088 004946 ‘000771 Be 76 99 LOOP 
@ 1086 006380 020040 000 Ty eAscts / / 7p2¥OC3) SPACES 
1007 006384 even 
1008 -88TTL SCOPE HANDLER ROUTING 
@ 1069 
1090 99 
1091 p@THZG ROUTINE CONTROLS THE LOOPING OF SUBTESTS, IT WILL INCREMENT 
© 1092 p@AND LOAD THE TEST ——— INTO THE DISPLAY REG, (DISPLAT<730>) 
1093 p®AND LOAD THE ERROR FLAG (SERFLG) INTO OxerLhy<ss100s 
1094 pOTHE SUTTCH OPTIONS PROVIDED BY THIS ROUTINE A 
© 1098 18864404 LOOP ON TEST 
ce 








OVKPA,Pii 


004354 
0043584 
004386 
004360 
004366 


004370 
004372 


004376 
004404 


8° 0@ @ @ @ @ @ @ 6 @ 6 6 6 6 6 6 6 C6 6 6 6 


~~ 


MAINDECe4 1 eOVKPACA 


104407 
104407 
032777 
001114 


000416 


013997 


WACTS1 27(663) 
SCOPE HANOLER ROUTINE 


000004 
004416 
177060 
000004 


000400 
174476 
001103 
0014115 
001000 
001130 


001160 
004000 
001202 
iit 


174852 


000004 


174804 
001102 


001103 
174446 
001106 


174414 


0011158 
174314 
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10811101 
00vu09021 
108u0001 
004LL 
hd 


escoPEes 


INHIBIT ITERATIONS 


LOOP ON ERROR 


LOOP ON TEST IN SWRCT30> 
99 SCOPESIOT 


OBIT14,06UR 
OVER 


seTEST FOR CHANGE IN SOFToSuR 


99LO0P ON PRESENT TEST? 
poYES IF Sui 404 


6 
pOOOCOSTART OF reer POR THE XOR TESTERG OSS 


765 
463 


168 
OSVLADs 


086, O0eERRVEC 
0047 


177060 
(6P)¢,OGERRVEC 


88YLAD 
0—802⸗ 


(8P)¢,O0ERRVEC 
Tu 99 L00P 
CODE FOR THE xon’ TESTERCCS 


— 
OBUR, OTSTNM 
COVER 

ORRPLG 

6 

eke ne 
0 setae 
OLPERR, CLPADR 
OOVER 


OERFLG 
OTIRES 


OPALS 

16 

etcet 

OTINES, OICHT 
GOVER 

o a, arcur 
OMXCHT, OTINES 
oTeTun 
OTETNN, STESTN 


CSP), 6LPADR 
peorceerene 
CESCAPE 


9937 RUNNING ON THE “XOR® TESTER CHANGE 
pOTHIG INSTRUCTION TO A *NOP® (nOPS240) 
 pOAVE THE CONTENTS OF THE ERROR VECTOR 
p988T FOR TINEOUT 
117108 OUT OW XOR? 
paRESTORE THE —— VECTOR 
79G0 70 THE NEXT TEST 
peCURAR THE STACK AFTER A TINE OUT 
peRESTORE THE ERROR VECTOR 
on mg PRESENT TEST 


99L00P OF Mas test? 


99 
9908 THE R TEST? 
goon 37 yes 
ppuas AN ERROR OCCURRED? 
998Rr IF nO 

Tae BG ae FOR THIS TEST OCCURRED? 


»9LOOP ON ERROR? 
y0OR EF HO 
9988f LOOP ADDRESS TO LAST SCOPE 


99SER0 THE ERROR FLAG 
peCLEAR THE NONBER OF ITERATIONS TO MAKE 
19140 EXT TEST 


GWR<780> 


p98R IF MORE ITERATION REGUIRED 
fant n * TNE ITERATION 
99887 HUMBER OF ITERATIONS 70° 00 
1 COUN TEGT NUMBERS 
99682 TEST SUNBER 38 APT MAILBOZ 
ADR Eas 


ARGS 
peCLEAR TRE ESCAPE FROM ERROR ADDRESS 
01, 8ERMAX ppONLY ALLOW * 12 ERROR OW acar TEST 
eTOTHM, oOTOPLAT seOZOPLAY TEST HUMBER 
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DVKPA,Pii SCOPE HANDLER ROUTINE SEQ 0040 
1180 0046626 013716 001106 “OV 6LPADR, (SP) s9F7UDGE RETURN ADORESS 
1181 004632 000002 RTI ppFIXES PS 
1182 004634 000020 OMXCNTs 20 99MAX, NUMBER OF ITERATIONS 
1183 ,S8TTL YTY INPUT ROUTINE 
ii 
c 1188 IIEIIXX 
1186 -ENABL LSB 
11 
e 1188 $1 000000000000 0000 OOOOOOOOOOOOHOSOOO DO OOOHOOSOODOHEOOSOOHOO00008 
1159 p@SOPTWARE SWITCH REGISTER CHANGE ROUTINE, 
1160 p@ROUTINE Ih ENTERED FROM THE TRAP HANDLER, AND WILL 
e 1161 p@SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
1162 pOWHEN OPERATING IN TTY FLAG MODE, 
1163 004636 022737 000176 001140 sCKswre CHP OSWREG, SWR 9938 THE SOPT°SWR SELECTED? 
€ 1164 004644 001074 BNE ise ;pBRANCH IF HO 
1168 0046666 108777 174272 787s) 4=—s_s« OS TKS p9CHAR THERE? 
1166 004682 100071 BPL 188 992° NO, DON’T WAIT AROUND 
a 1167 004684 117746 174266 MOVS O6TKB,°(8P) ppSAVE THE CHAR 
1168 004660 042716 177600 src 0°C177, (SP) pPSTRIPCOPF THE ASCII 
1169 004664 022726 000007 cup 07, (OP)¢ 99238 IT A CONTROL GP 
© 1170 004670 001062 OxE 188 3940, RETURN 70 USER 
4171 004672 123727 001134 000001 CuPB 0s SAUTOB, 01 ppARE WE RUNNING IN AUTOSNODE? 
e 4173 004700 001486 BEO 186 PpBRANCH IF YES 
1174 004702 104401 009363 TYPE eOCNTLG p98CHO THE CONTROL©G (°C) 
1178 0046706 104404 008370 eGTawR: TYPE oOMSWR +I TPE CURRENT CONTENTS 
¢ 1176 004712 013746 000176 nov OWREG, @( SP) ppSAVE BWREG FOR TYPEOUT 
4177 004716 104402 TYpoc 99G0 TYPECCOCTAL ASCIICALL O3GITS) 
1178 004720 1046401 0084601 TYPE oOnnew s9PRONPT FOR WEW SUR 
© 1179 006724 098046 1908 «= CLR (8?) peCLEAR COUNTER 
1180 004726 008046 CUR °(8P) 997TRE NEW SwR 
1181 004730 108777 1742140 168 Tt) Mae tat) p9CHAR THERE? 
€ 1102 004734 100378 SPL 71 9927 BOT TRY AGAIN 
118 
1184 006736 117746 1746204 NOVD oorro, © ( SP) p9PICK UP CHAR 
€ ies 004942 042716 177600 arc 6°C177,(8P) ppMAKE IT 7eBIT ASCII 
ii 
4187 
€ 1188 
1189 0047466 021627 000028 968 CMP (8P),025 9938 IT A 1SourRoueur 
1190 004992 001008 BxE 106 ppBRANCK I 
€ 1191 004784 1046408 008396 TYPE eOCUTLU 99 ¥88, Scio 8 —T 
1192 0049760 062706 000006 2088 ADD 06,6? pp3GNORE OREVIOUS INPUT 
1193 0046764 000787 aR 198 ppLET°S TRY IF AGAIN 
& 1194 
1198 
1196 004766 021627 0000:8 1088 cup (8P),048 938 IT A ccna? 
E 1197 004772 001022 BNE 166 ppBRANCH BF WF 
1198 006774 008766 000004 T8t 4(eP) p9¥G8, 18 If [ue FIRST CHART 
1199 008000 001403 ryt) 118 pBRANCH IF YEO 
© 1200 008002 016677 000002 174130 nov 2¢aP),08uR pp SAVE New SwR 
1201 008010 062706 000006 1168 ADD 06,6? p9CLEAR UP STACK 
1202 008014 1046401 001171 TT?9c)80F—s«é« ORL p98CHO <CRD AND <LF> 
C 1203 008020 123727 001138 000001 CuPO 40s OENTAG, 04 ppREoEMASLE TTY KBD INTERRUPTS? 
e 
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1204 
1208 
1206 
1207 
120¢ 
1209 
1210 
i211 
1212 
1213 
1214 
1215 
1216 


®eoeeeeeseeseseeeee 0 0 0 @ ®@ 
ee 
w 
Ld 
ae 


é 


008056 
008030 
008036 
008040 
005044 
008080 
008082 
008086 
008060 
008064 
008070 
008072 
008074 
005076 
005100 
0081046 
008110 
008112 
008416 


001003 
012797 
000002 
004737 
021627 
002420 
021637 
003018 
042726 
005766 
001403 
006316 
006316 
006316 
008266 
086616 
000707 
104401 
000720 
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TTY INPUT ROUTINE 


006276 
000060 


000067 


000002 
177776 


001170 


000004 
174010 


174004 
177600 
006904 
173786 
173782 
177600 
000021 
000004 
000004 


174106 


000140 
000178 
000004 
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156s RTI 
166% JER 


1768 rnc 


1000 )= ss TYPE 
hie 
-OSASL LSB 


peCALLe 


180 
uoo, 0eTKS 


PC, eTYPEC 
(8P),060 


1f6 

(SP), 067 
186 
060,(SP)¢ 
2(6P) 


2(8P) 
©2(8P), (SP) 
78 


- 


ppBRANCH IF NOT 

ppREeENABLE TTY KBD INTERRUPTS 

ps» RETURN 

99ECHO CHAR 

p9CHAR <€ OF 

ppSRanCn IF YES 

ppCHAR > 79 

p9BRARCH IF YES 

peSTRIPSCOVF ASCII 

9938 THIS THE FIRGT CHAR 
ppBRANCH IF YES 

9940, GHIFT PRESENT 

99 CHAR OVER 70 MAKE 
99 ROOM FOR NEW ONE, 
99KSER COUNT OF CHAR 
128 In Seu CHAR 

12667 THE NEXT OnE 

peTTPE PCCROCLID 

peGIMULATE CONTROL@U 


— 080000000000000000000000000000000000000000000 
p@THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


(8P),°(8P) 
4(8P).2¢8P) 
errs 


18 
OSTKB,4( SP) 
0°C<1773-4(8P) 
4(aP),023 
ae 

oeTeS 

26 
O6TKB,°( SP) 
0°C177.(8P) 
(8P)o.021 
36 

is 
4(8P),0140 
45 

4(8P), 0175 
46 


04054(8P) 


99mPUT A GINGLE poy FROM THE TTY 
spCMARACTER 36 OW THE STAC 
pe¥STH PARITY BIT STRIPED orr 


TtY 
p9GBT RIO OF JUNK IF anY 
9938 If A CONTROLe 
BRANCH IF 


CHARACTER 

ppMAKE £7 PeBIT ASCII 
9930 37 A CORTROL-OP 
g92P WOT OZECARD If 
s9Y86, REsUKE 
9938 If UPPER Case? 
pBRANCH IF YES 
9938 If A SPECIAL CHART? 

pe SRANCH yes 
HARE IT UPPER CASE 
9960 BACK TO USER 


9900000000000 
p@THIG ROUTINE WILL INPUT A STRING FROM THE TTY 
p@CALLS 
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1288 
1289 


e@9eooeoeeoeeeseeees&seeteee8e88886 6 @ @ 
= 
OF 
ae 
—J 


—— 


006240 
008242 
005246 
008252 
008284 
005256 
005260 
005264 
008266 
008372 
008274 


008401 
008406 


TTY INPUT ROUTINE 


010346 
012703 
022703 
101408 
104410 
112613 
122713 
001003 
104401 
000763 
111337 
104403 
122723 
001386 
108063 
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000177 
004170 
005344 
005344 
000018 
177777 
001172 


006807 


047040 
000040 


000002 
000004 
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8EO 0042 
1 RDLIN spINPUT A STRING FROM THE TTY 
1° RETURN HERE spADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
—8 SOTERMINATOR WILL BE A BYTE OF ALL 0°6 
SRDLING NOV R3,°( 8P) ppGAVE R3 
188 mov OOTTYIN, RD 1)GET ADDRESS 
281 CHP 8 =—«-«s«OOTTYINGS./R3 «=. BUFFER FULL? 
- bos 4s 990R IF YES 
RDCHR 9960 READ ONE CHARACTER FROM THE TTY 
MOVS = (8P)@, (R3) 19GET CHARACTER 
1088 «CHPB «=. 0177 (RD) 9918 IT A RUBOUT 
BNE rT 198KIP IF NOT 
48s TYPE =—_, SQUES seTYPE AR? 
aR 18 S)CLEAR THE BUFFER AND LOOP 
361 MOVB = (RB) 98 1)ECHO THE CHARACTER 
TYPE 5 
CHPB 8-015 CRB) 19CHECK FOR RETURN 
BNE 28 1)L00P IF NOT RETURN 
CLRB = ©1(R3) POCLEAR RETURN (THE 45) 
TYPE OLF s9TYPE A LIE FEED 
nov (8P)¢,R3 spRESTORE RI 
mov (8P),°(8P) ppADJUST THE STACK AND PUT ADDRESS OF THE 
MOV 4(8P),2(8P) ” FIRST ASCII CHARACTER OW IT 
MOV OOTTYIN, 4(8P) 
RTI sp RETURN 
968 .8YTE 0 spBTORAGE FOR ASCII CHAR, TO TYPE 


eSYTE 0 9 TERMINATOR 

OTTYINe BLKB a, ppRESERVE @ BYTES FOR TTY INPUT 
OCNTLUs ,ASCIZ /°U/419><12> spCONTROL *y* 

OCNTLGs ,ASCIZ /°G/<19><12> ssCONTROL °G* 

OASuURe ,ASCIZ <ig><12>/EWR © / 


OMNEW, €6,ASCIZ / NEWS / 

eSBTTL BINARY TO OCTAL (ASCII) AND TYPE 

$1 00000000000000000000000000000000000000080000000 000000000000 0008 
ai⸗ ROUTINE 36 USED TO CHANGE A 16eBIT BINARY NUMBER TO A 6eDIGIT 


pSOCTAL (ASCII) HUMBER AND TYPE IT, 
ot thy tes pee HERE TO SETUP suPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


3* mov NUN, °C SP) peNUNBER TO BE TYPED 

38 TYPOS eau ron TYPEOUT 

28 -SYTe 8 p98@, TO 6 FOR MUMBER OF DIGITS TO TYPE 
hed ppLGTYPE LEADING ZEROS 

38 p90CSUPPRESS LEADING ZEROS 

98 


p®STYPONCCocENTER HERE TO TYPE OUT WITH THE SANE PARAMETERS AS THE LAST 
p®OTYPOS OR STYPOC 


peCALLs 
R nov BUM, °(6P) peNUMBER TO BE TYPED 
hd TYPON , ppCALL FOR TYPEOUT 





we” 
! @®eeoeoeeeeseeesee#e#e#ee§gn5gee#eee#eeseesvseeesd ®é@ 
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DVKPA,Pii BINARY TO OCTAL (ASCII) AND TYPE SEQ 0043 
1312 p®CTYPOCoecENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
1313 p@CALLe 
1314 1 mov NUM, °(8P) pyNUMBER TO BE TYPED 
1318 ye TYPOC p9CALL FOR TYPEOUT 
131 
1317 008412 017646 000000 eTYPOS; MOV 0(8P),°(8P) s9PICKUP THE MODE 
1318 008416 116637 000001 005635 MOVB 168°) ,6OFILL spLOAO ZERO FILL swITCH 
1319 008424 112637 008637 MOV (8P)¢,@OMODE+1 »9NUNBER OF DIGITS TO TYPE 
1320 008430 062716 000002 ADD 02, (8P) ppADJUST RETURN ADDRESS 
1321 008434 000406 aR orroou 
1322 008436 112737 000001 005635 seTYPOC; NOVB 01, 80PILL :96ET THE ZERO FILL SWITCH 
1323 0084646 112737 000006 008637 NOV «©: 96 , SONODE+1 998 FOR SIX(6) DIGITS 
1324 008482 112737 000008 008634 sTYPONs NOVS ¢68,80CNT 99GET THE ITERATION COUNT 
1325 008460 010346 NOV R3,°(8P) p9GAVE RD 
1326 008462 010446 nov R4,°(8P) pPGAVE RG 
1327 0084664 0108 mov RS,°(8P) p9SAVE RS 
1328 008466 113706 009637 MOVB sONODESi,R4 s9GET THE NUMBER OF DIGITS TO TYPE 
1329 008472 0084046 WEG —XR 
1330 008474 662500 000006 ADD 06,4 ppSUBTRACT IT FOR MAX, ALLOWED 
1331 008800 110437 008636 MOVB R4,80M0DE s98AVE IT FOR USE 
1332 005804 113704 008635 nove COFILL, R4 99GET THE ZERO FILL SWITCH 
1333 008810 016608 000012 MOV 12¢SP),RS seRICKUP THE INPUT NUMBER 
1334 008814 008003 CLR Ra s9CLEAR TRE OUTPUT WORD 
1338 008916 006108 168 ROL RS ppROTATE NEB INTO *C® 
1336 008520 000604 BR 38 9960 DO NsB 
1337 008922 006108 288 ROL Pt) p9FORM THES DIGIT 
1338 008824 006108 ROL RS 
1339 008826 006108 ROL RS 
1340 008830 010803 mov RS, RD 
1341 008532 006103 aaa ROL R3 p9GET LEB OF THIS DIGIT 
1342 009934 108337 008636 D&ECcs sOnODE geTYPE THIS DIGIT? 
1343 008840 100016 BPL 76 998R IF BO 
1344 008942 042703 177770 arc 0197770,R3 99GET RID OF JUNK 
1348 008346 001002 Bue 48 s9TEST FOR 0 
1346 008880 008704 787 Ra s9SUPPRESS THIS OF 
1347 008982 001403 Bre $6 p98R IF YES 
1348 00888¢ 008204 Ty mmc Bs 9900N°? SUPPRESS ANYMORE 0°S 
1349 008886 082703 000060 Bs 6°o,R3 peMAKE THIS DIGIT ASCII 
1380 008662 082703 000040 86a Bis o° ,R3 peMAKE ASCII IF —* ALREADY 
1351 008866 110337 005632 novo RDe86 8ave FOR TYPING 
1382 008872 1044604 006632 TYPE 086 9960 TYPE THIS DIGIT 
1383 008876 108337 0059634 788 DECcs eocnt psCOUNT BY 3 
1384 008602 003347 BGT 26 9988 IF MORE TO DO 
1385 008604 002402 BL? 63 998R IF DONE 
1386 008606 008204 rnc as pelMGURE LAST DIGIT IeN°T A BLANK 
1387 008610 000744 SR ae 9960 00 . LAST DIGIT 
1388 008612 012608 683 HOY (S8P)O,RS I PRESTORE RS 
1389 008614 012604 mov (OP) o,R4 peRESTORE RE 
1360 009616 012603 mov (8P)o,R3 ppRESTORE R3 
1361 008620 016666 000002 000004 MoV 2(8P),4(8P) 9988T THE STACK FOR RETURNING 
1362 006626 012616 MOV (6P)¢.(8P) 
1363 008630 000002 RTI pp RETURN 
1364 005632 000 660 eSYTE 0 peSTORAGE FOR ASCII DIGIT 
1368 008633 000 eSYTE 0 peTERMINATOR FOR TYPE ROUTINE 
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e DVKPA, Pil BINARY TO OCTAL (ASCII) AND TYPE ↄxo 0044 ' 

1366 008634 000 sOCNTs ,B8YTE 0 spOCTAL DIGIT COUNTER : 

1367 008638 000 QOFILL: ,BYTE 0 $9ZER0 FILL SwiTcH 1 
e 1368 008636 000000 gONODEs ,WORD 0 spNUMBER OF DIGITS TO TYPE 

1369 »SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

i 
bay i 37 i g 18886000 ö α 

4372 pOTHIS ROUTINE I8 USED TO CHANGE A 16¢BIT BINARY NUMBER TC & SeDIGIT 

4373 pOSIGNED DECIMAL (ASCII) NUMBER AND TYPE IT, DEPENDING OW WHETHER THE ( 
e 1374 s@NUMBER I6 POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 

1378 pOBEPORE THE FIRST OIGIT OF THE NUMBER, LEADING ZEROS WILL ALWAYS BE 

1376 P@REPLACED WITH SPACES, ( 
& 1377 p@CALLE 

1378 3° nov NUM, ©(8P) ;;DUT THE BINARY WUMBER ON THE STACK 

1379 s@ TYPos 9960 TO THE ROUTINE ( 
é 1380 

1381 008640 eTYPDS: 

1382 008640 010046 MOV RO,°(8P) ;)PUSH RO OW STACK ( 
& 1383 008662 010146 NOV Ri, (SP) )9PUSH RY OW STACK 

1304 008644 010246 MOV R2,°(8P) s9PUGH R2 OW STACK 

1385 008646 010346 mov R3,°(8P) s9RUSH R3 OW STACK ( 
& 1386 008680 010846 MOV RS,°(8P) $9PU8H RS OW BTACK 

1307 008682 012746 020200 MOV #20200,°(8P) 9988T BLANK SWITCH ANO SIGN 

1388 008686 016608 000020 MOV 20(8P),RS $9G8T THE INPUT NUMBER 
é 1389 008662 100004 BPL 18 9982 IF INPUT I8 POS, 

1390 008664 008408 sagt’ «RS ppMAKE THE BINARY WUNBER POS, 

1391 009666 112766 000088 000001 MOVE 0° 4 8P) S9MAKRE THE ASCII WUMBER WEG, 
& 1392 008674 008000 168 CLR RO p9ZERO THE CONSTANTS INDEX 

1393 008676 032703 o06ose NOV OODELK,R3 ppSETUP TRE OUTPUT POINTER 

1394 008702 112723 000040 MOVB 3s «8s oo (REDO $9807 THE FIRST CHARACTER TO A BLANK ( 
& 1398 008706 008002 288 CLR R2 p9CLEAR THE BCD NUNBER 

1396 008710 016001 006044 Mov ODTBL(RO), RI 99GET THE CONSTANT 

1397 008714 160108 36s sus Ri, RS S9FORM HIS BCD DIGIT 
& 1398 008716 002402 BLT as 998k IF OOnc 

1399 008720 008202 rT Ra ppTACREASE THE BCO DIGIT BY 1 

1400 008722 000776 Br 38 
S 1401 008724 060108 ase ADD Ri, RS ppADD BACK THE CONSTANT 

1402 008726 008702 por Ki psCMBCK If BCD or6rTe0 

1403 008730 001002 BHE $6 S9PALL THROUGA IF 
O 1406 005732 108716 tt; nt) ppSTILL DOING LEADING o°sr 

1408 008734 100407 I ? 3à Ir yee 

1406 008736 106316 tT) ASLBD ss (SP) p9MSD? 
& 1407 008740 103003 acc $e 9988 IF HO 

1408 008742 116663 000004 177777 MOVS SC8P),°1(R3) sp YESeesET THE SIGH 

1409 008750 082702 000060 eon BI8 0°0,R2 ppMAKE THE BCO DIGIT asciz 
@ 1410 008984 082702 000040 788 B18 e° »R2 ppMAKE If A SPACE If NOT ALREADY A DIGIT 

1411 008760 110223 NOVB n, CRI p90UT THIS CHARACTER IN THE OUTPUT SUFFER 

1412 008762 0089720 Tat CROS® —*8— INCRENERNTING 
€ 1413 008764 020027 000010 cup RO, 010 ppCHECK THE TABLE INDEX 

1414 008770 002746 BLT 28 $9@0 DO THE WEXT DIGIT 

1418 098772 003002 act 03 - 9960 70 EXIT 
cS 1416 0089774 010802 nov RS,R2 99GET THE LEO 

1417 008776 000764, BR 68 $960 CHANGE TO ASCII 

1418 006000 108726 TY) 7878) 40s (BP) $9WAS THE LOD THE FIRST NONZERO? | 
G 1419 006002 100003 BPL Ty) 998R IF HO 

— 
-@ 
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@ OVKPA,Pii CONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0045 
1420 006004 116663 177777 177776 MOVB ©1(6P),°2(R3) SVYESeeSET THE SIGN FOR TYPING 
é 1421 006012 108013 968 CLRB (R3) 996T THE TERMINATOR 
1422 006014 012608 MOV (SP)o,RS 99POP STACK INTO RAS 
1423 006016 012603 MOV (S8P)¢,R3 99P0P STACK INTO R3 
a 1424 006020 012602 MOV (6P)o,R2 99POP STACK INTO R2 
1428 006022 0126014 MOV CSP)o,R1 99POP STACK INTO Rj 
1426 006024 01260 MOV (8P)o,RO 99P0P STACK INTO RO 
& 1427 006026 104401 006054 TYPE o SOBLK 99NOW TYPE THE NUMBER 
1428 006032 016666 000002 000004 MOV 2(8P),4(8P) peADJUGT THE STACK 
1429 006040 012616 MOV (8P)¢,(8P) 
€ 1430 006042 000003 RTI spRETURN TO USER 
1431 006044 023420 eOTBLs 10000, 
1432 006046 001780 1000, 
e 1433 006080 000144 100, 
1434 006082 0000132 10, 
1438 006084 000004 OOBLKs BLKW 6 
e 1436 »S8TTL TYPE ROUTING 
1437 
1436 PSEOFHLHPSSODVGHHSSSRHFSHGOSIVSSEGGHGIIGGHVO GS HHO HGIDHDEGSORESRGSOSHGOG 
6 1439 1 OROUTINE TO TYPE ASCIZ MESSAGE, MESSAGE HUST TERMINATE WITH A O BYTE, 
1440 p@THE ROUTINE WILL INGERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED, 
1441 pOnOTESs ONULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER, 
e 1442 pONOTEZs OFILLS CONTAING THE NUMBER OF FILLER CHARACTERS REQUIRED, 
1443 peNOTESs OFELLC CONTAINS THE CHARACTER TO FILL AFTER, 
1444 0 
1448 ec 
1446 181) USING A TRAP INSTRUCTION 
1447 5° TYPE o MESADR ppMESADR 18 FIRST ADDRESS OF AN ASCIZ STRING 
e 4448 p®OR 
1449 9@ TYPE 
1480 9@ MESAOR 
@ 14684 8 
1482 
1483 006064 108737 001187 OTYPEs T8TB OTPFLG 9938 THERE A TERMINAL? 
@ 1484 006070 100002 BPL 18 990Rn IF ves 
1488 006072 000000 MALT 9p MALT * If NO TERMINAL 
1486 006074 0004630 BR - 98 so LEAVE 
Ce 1487 006076 010046 16s MOV RO,°( SP) p9SAVE RO 
1488 006100 017600 000002 MOV 02(8P),RO 99G8T ADDRESS OF aot STRING 
1489 006104 1227937 000001 001214 Cups OAPTENV, SENV ppRUNNING Ih APT HO 
@ 1460 006412 001048 BANE 628 9940,GO CHECK FOR * CONSOLE 
1461 006414 132737 ©@00100 001215 BITS PAPTBPOOL, SENVN — yaPOOL MESSAGE APT 
1462 006122 001408 BEG 626 9980,G0 CHECK ron CONSOLE 
€ 1463 006424 010037 006134 nov RO, 618 p9SETUP MESSAGE ADDRESS FOR APT 
1464 006330 004737 006384 JGR PC, SaTY3 SPOOL MESSAGE TO APT 
1468 006134 000000 6168 WORD 0 99MESSAGE ADDRESS 
e 1466 006436 132737 0000460 001218 626% SITs CAPTCEUP, SENVMN 9 9APT CONSOLE SUPPRESSED 
1467 006144 001003 BYE 66a p9YES,GKIP TYPE OUT 
1468 006146 112046 28a ROVB (ROJO, eC BP) —*28 CHARACTER TO BE TYPED ONTO STACK 
a 1469 006480 001008 BRE 48 998R IF IT IER°T THE TERMINATOR 
1470 006382 006726 707 18)0 p93F TERMINATOR POP IT OFF THE STACK 
1471 006384 0123600 6068 NOV (SP)0,R0 peREGTORE RO 
eS 1472 006386 062716 000002 368 ADD 02, (SP) ppADJUGT RETURN PC 
pp RETURN 
e 





MAINDEC*11¢DVKPASA 
DVKPA,Pii 


1474 
1475 
1476 
1477 
14768 
1479 
1480 
14601 
1402 
14863 
1404 
1465 
14086 
1487 
1468 
1489 
1490 
1491 
1492 
1493 
1494 


006164 
006170 
006172 
006176 
006200 
006202 
006204 
006206 
006212 
00*714 
006220 
006224 
006226 


006252 
006256 
006262 
006270 
006272 


006344 


006346 
006354 
006362 
006364 
006372 
006372 
006374 
006376 
006402 
006404 


122716 
001430 


013746 


108366 
002770 
004737 
108337 
000770 


112716 


000000 
000207 


412737 
112737 
000403 
112737 


122737 


MACY11 27(663) 
TYPE ROUTINE 


006276 
001186 


006276 
006342 


000040 
006276 
000007 


172646 


172640 
000002 


2°MAY°77 18803 PAGE 29 
46% CuPB OHT, (SP) 
, Bre on 
Cups. OCRLF, (SP) 
BNE $s 
T8T (SP)¢ 
TYPE 
6CRLF 
CLRB 6CHARCNT 
BR 28 
$63 JGR pC, STYPEC 
669 Cups OFILLC, (8P)¢ 
BHE 28 
MOV ONULL, ©( SP) 
768 DECcB 1( SP) 
BLT 66 
JER PC, STYPEC 
pecs OCHARCNT 
ae 76 
pHORIZONTAL TAB PROCESSOR 
O86 MOVB 6° (SP) 
gon JER PC, STYPEC 
erTe 07, SCHARCNT 
BEE 98 
76f (8P)¢ 
BR ae 
OTYPECs; 7070 OoTPs 
BPL eTyPEc 
MOVB 2(6P),0e6TPS 
cups 0CRr,2(8P) 
Bxe 10 
CLAD OCHARCHT 
Br OTYPEX 
188 Cups OLF+2¢(8P) 
ate orro cx 
Ince (PC)¢ 


GCHARCHTs,WORD 0 
eTYPEXs ATS ee 


_*yvts 


SEQ 0046 
p9BRANCH IF <HT> 
ppBRANCH IF NOT <CRLF> 


99POP <CR>O<LF> EQUIV 
seTYPE A CR AND LF 


s9CLEAR CHARACTER COUNT 

99GET NEXT CHARACTER 

9960 TYPE THIS CHARACTER 

IT TIME FOR FILLER CHARS,? 

991F NO GO GET WEXT CHAR, 

39GET @ OF FILLER CHARS, NEEDED 

pp9AND THE NULL CHAR, 

990028 A NULL NEED TO BE TYPED? 

998Rn If NOeeGO POP THE MULL OFF OF STACK 
9960 TYPE A NULL ; 
9900 NOT COUNT AS A COUNT 

99 LOOP 


pPREPLACE TAB WITH SPACE 

se TYPE A SPACE 

ppORANCH IF NOT AT 

99TAB STOP 

99909 GPACE OFF STACK 

99GET NEXT CHARACTER 

po¥AZTT UNTIL PRINTER 38 READY 


ppLOAD CHAR TO BE TYPED INTO DATA REG, 
9936 CHARACTER A CARRIAGE RETURRT 
s98RANCH IF BO 

p9YESeeCLEAR CHARACTER COUNT 

1x117 

9936 CHARACTER A LINE FEED? 

seSRARCH IF YES 

psCOUNT THE CHARACTER 

peCHARACTER COUNT STORAGE 


eS8TTL APT COMMUNICATIONS ROUTINE 


J ORHHSOSHOOSEHOHOHHHHOHEHHSHHHEHOSHHHHHHOHOHHHGHOHHHEHHHHHOHHOHO 


u5* MOVE 61, 67FLG 
SATY3s OVS 01, rus 

BR eatyc 
GATY4s OVS 61,8FFLG 
OATYCs 

mov RO,°( SP) 

MoV Ri,°( SP) 

rate OMFLG 

BEG 58 

CPB OAPTENV, SENV 


$970 REPORT FATAL ERROR 
9970 TYPE A MESSAGE 


99T0 ONLY REPORT FATAL ERROR 


ppusn RO OW STACK 
p9PUGH Ri OW BTACK 
s9SHOULD TYPE A MESSAGE? 
g9tF BOTs BR 
pPOPERATING UNDER APT? 


J 


daeeceeeoeeeoee eee eel — 0—o — 0 le le 


< 
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DVKPA,Pii APT COMMUNICATIONS ROUTINE SEQ 00467 q 
1828 006412 001031 xe 20 1917 WOT) BR 
1829 006414 132737 000100 001215 BITS @APTSPOOL, GENVHM — SHOULD SPOOL MESSAGES? | 
1830 006422 001428 zäe 35 1917 NOT? OR 
1831 0064624 017600 000004 MoV 04(8P),RO 99GET MESSAGE ADDR, 
1832 006430 062766 000002 000004 ADD 02,4( SP) pe8UMP RETURN ADDR, q 
1533 006436 008737 001174 16% 767 SMSGTYPE peSGE IF DONE W/ LAST XAMISSION? 
1834 006442 001378 one sil8 1927 NOT? WALT 
1838 006444 010037 001210 mov RO, 6MSGAD p9PUT ADOR IN MAILBOX « 
1836 0064680 108720 2638 T8TS (Rode s9FIND END OF MESSAGE 
1837 006482 001376 onc 38 
1538 006454 163700 004210 ous @MSGAD,RO 996UB START OF MESSAGE q 
1839 006460 006200 ASR RO 19GET MESSAGE LNGTH IN WORDS 
1840 006462 010037 001212 nov RO, SMSGLGT p9PUT LENGTH IN MAILBOX 
1841 006466 012737 000006 001174 NOV «04, ONSGTYPE =) TELL APT TO TAKE NBG, ‘ 
1942 006474 000683 Be 7) 
1843 006476 017637 000004 006522 36% nov 04(8P),48 s9PUT MSG ADDR IN JER LINKAGE 
1844 006804 062766 000002 000004 aod 02,4( SP) pBUNP RETURN ADDRESS q 
1845 006812 0137466 177776 HOV =«-1177776,°(8P) —«-. sPUSH 377776 OW BTACK 
1846 006816 004737 006064 Jen (C8 19CALL TYPE MACRO 
1847 006822 000000 40: = WORD r 
1848 006824 $81 
1849 006824 108737 006612 1060 «= 878 OPFLG ))6HOULO REPORT FATAL ERROR? 
1850 006590 001416 Bros«i:28 1937 NOT: BR r 
18551 006832 008737 001234 78? 6anv ppRUNNING URDER APT? 
1852 006836 001413 eros:28 292f NOT: BR 
1833 006840 008737 001176 1100 8T = ONSGTYPE SPPENZGRED LAST NESSAGE? r 
1984 0068466 001378 ones p91 NOT? WALT 
1388 006846 017637 000006 001176 HOY  § O4(8P),OFATAL  3)GT ERAOR 9 
1886 006584 062766 00002 000004 ADD «02, 4.89) )9DURP RETURN ADDR, ri 
1587 006862 005237 001176 I8¢ = «ONC TYPE s)TELL APT TO TAKE ERAOR 
1888 006866 108097 006642 1200 ©« CLAD GPFLG 9CLEAR FATAL FLAG 
1889 006872 108037 006611 CLAD = OLPLE N9CLEAR LOG PLAG r 
1860 006876 108037 0066s0 CLAD «= SNFLG 19CLBAR MESSAGE FLAG 
1961 006602 012601 ROY = CBP) 4y RI 1900P STACK IATO Ri 
1862 006606 012600 NOV CBB Jey RO 1900P STACK INTO RO Q 
1963 006606 000207 ee s) RETURN 
1864 006610 000 OnFLG: BYTE 0 19NB686, FLAG 
1868 006611 000 OLFLGs BYTE 0 19L06 PLAG ‘ 
1366 006612 000 OPrLGs ,8TTS 0 SPPATAL PLAG 
1967 006614 EVEN 
1568 000200 aprsizzes00 q 
1869 000008 i 
1$70 000100 APTSPOOLS1 00 
1871 000060 APTCEUPE04O P 
1$72 
1573 ee ; 
1874 JOTHIG ROUTINE WILL PROTECT THE PROGRAM < 
1978 HePROM IBTERRUPTB, 
is 
1877 JeTHE TRAP CATCHER 18 SET UP FOR « 
1878 9@ o¥ORD 02 
1879 8* eWORD «JSR PCy RO 
i ’ 
1805 JOXLLEGAL INTERRUPTS OR INTERRUPTS TO THE WRONG VECTOR ‘ 
€ 








1882 
1803 
1564 
1805 
1966 
15067 
1508 
15069 
15890 
1593 
1892 
1593 
1594 
1895 
1596 
1897 
1596 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1638 
1619 
1620 
1621 
1622 


ODo0o 0o00 00 0 0 0 0 0 0 0 


—_ i 


006626 
006634 


006636 
006640 
006642 
006642 


MAINDEC4 1-pVKPASCA 
DVKPA,Pii 


011637 
162737 


023727 
003402 


000776 
413737 


016637 
062706 


MACT11 27(663) 
APT COMMUNICATIONS ROUTINE 


000004 
000004 


006672 
006670 


2eMAYoT9 


IOTRDs 


y®GOTO THE VECTOR AND PICK UP THE *,¢2° AS AN ADDRESS 

pOAND "4700" AS NEW STATUS, 

OTHE ,¢2 AS A PC WILL CAUSE EXECUTION OF THE *JSR PC,RO® (AN ILLEGAL INSTR), 
s®AND TRAP TO LOCATION *4*, IN LOCATION 10 WE HAVE A 

}@POINTER HERE, IF THIS CONDITION CAUSES A TRAP TO LOC,<4 

poWE WILL REPORT IT IN THE SAME MANNER THAT WE WOULD 

p@REPORT ANY OTHER ERROR, 


p1F A BUSS ERROR TRAP DID OCCUR AND CAUSE A TRAP TO 4, 
pOwE WILL HALT, 


mov (6), TRTO pGET WHERE WE CAME TO, 

sus 04,TRTO sPORM REAL ADOR, 

CMP TRTO, 61000 9030 TRAP COME FROM LESS THAN ADDR, 10007 

BLE 2a 

HALT 9NOj MUST BE A BUSS ILLEGAL ADDR, TINE OUT, 
pADDRESS CONTAINED IN TRTO, 

BR is pDON°T ALLOW A CONTINUE 

moves STSTNM, TSTNM pSAVE TEST NUMBER, 

Mov 4(6),TRFRO sGET TRAPPED FROM ADDR, 

abo 04,26 

ERROR 6 pERROR) ILLEGAL INTERRUPT 


sOR INTERRUPT TO WRONG 

sVECTOR © IF TEST NUMBER 

936 LESS THAN 2, I78 LIKELY 
(BUT NOT EXCLUSIVELY) TO BE A 
seated y OTHER THAN THE DEVICE 


72 

pif THE INTERRUPT OCCURRED 

pOURING AW INTERRUPT TEST, 1°D 
pSUSPECT A PROBLEM WITH THE 
sDEVICE, 

pF THE ADDRESS THE INTERRUPT 
sVECTOR TO 26 WITHIN THE RANGE 

907 VECTORS ASSIGNED TO THE DEVICE, 
) THEN 1°O suspect —* DEVICE 


2 ILLE 

TIF TRE ADORESS THE —— 
eioato TO 16 OUTSIDE OF THE 
pRARGE ASSIGNED TO THE DEVICE, 
32°D SUSPECT THAT THE 

pDEVICE PUT THE WRONG VECTOR ON 
sTHE 8USS DURING THE INTERRUPT 
9 PROCESS % 

SFOR TRIS ERROR © DON’T 


pALSO EXPECT THE INTERRUPT TEST 
pREPORT THAT THE DEVICE DDN‘ T 





eececeoeeeoeoeeeee eee eo 8 ke 8 8 


MAINDEC*1 1 eDVKPACA 
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1636 
1637 
1636 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1682 
1653 
1654 
1655 
1656 
1687 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 


006664 


006666 
006670 
006672 


006674 
006676 
006702 
006704 
006706 
006710 


006714 


006716 
006720 
006726 


006730 
006732 
006734 
006736 
006740 
006742 


006744 
006746 


006750 
006752 


MACY11 27(663) 


2°MAYo77 


APT COMMUNICATIONS ROUTINE 


010046 
016600 
008740 
111000 
006300 
016000 
000200 


0067136 
006064 


006730 


TRIOS 
TRFROG 
TOTHNs 


» S8TTL 


15803 PAGE 32 
RTI 
eWORD 0 
eWORD 0 
eWORD 0 
TRAP DECODER 





p INTERRUP 


? 
}FOLLOW RECOMMENDED PROCEDURE 
yIN THE DOCUMENT (ON THIS DIAGNOSTIC) 
}FOR LOOPING OW ERROR 


pAODR THAT WE INTERRUPTED TO 
pADOR THAT WE INTERRUPTED FROM, 
pTEST NUMBER FROM WHICH WE CAME, 


991 POSS GHHHDGGHHOTHDGEGFHHGHHDOGHOHGOHHSCHHHOOHOBHGFCSHSOHOTHORHHHOTH DG 


pOTHIS ROUTINE WILL PICKUP THE LOWER SYTE OF THE *TRAP® INSTRUCTION 


s®AND USE If TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
s@OF THE DESIRED ROUTINE, THEW USING THE ADORESS OBTAINED IT WILL 
9®GO TO THAT ROUTINE, 


OTRAPs 


mov 
MoV 


RO, °( SP) 
2¢(SP),RO 
@(RO) 

seene8e 


0 
OTRPAD(RO)/ RO 
RO 


peSAVE RO 


99GET TRAP ADDRESS 


pp BACKUP BY 2 


4 RIGHT BYTE 


OF TRAP 


raove THE PC DOWN 
peMOVE THE POW DOWN 
peRESTORE THE POW 


mov 
woyv 
atz 


(8P),°C( SP) 
4(€8P),2¢6P) 


oS8TTL TRAP TABLE 


pOTNIS TABLE CONTAING THE STARTING ADDRESSES OF THE ROUTINES CALLED 
p°BY SHE "TRAP INSTRUCTION, 


pI CALLECKSWR 
9 CALL@RDCHR 
peCALLSROLIN 


TRAPO2 (104402) 
TRAPS (104403) 
TRAPO4 (104404) 
TRAP OS (104408) 


TRAP C6 (104406) 
TRAPOT (304407) 


meter 


TTY TYPEOUT ROUTINE 

TYPE OCTAL SUMBER 

TYPE OCTAL 38 -4 —* 
TYPE COCTAL BURBER 


W33M LEADING ZEROS) 


PER LAST CALL 


Get sorresun — 


TES 
TRAPO10( 104410) TTY TYPEIN C 


MARACTER 
PRAPCL1(306411) TTY TYPEIN BTALNG ROUTIAS™ 








MAINDECe4 1 eOVKPASA 
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1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1708 
1706 
1707 
1708 
1709 
1710 
1211 
1712 
1713 
1714 
1715 
1716 
1737 
1718 
1719 
1720 


006754 
006762 
006770 
006776 
007004 


007008 
007012 
007020 
007026 
007034 
007042 
007080 


007081 
007056 
007064 


007072 
007100 
007106 
0073146 


007115 
007122 
007130 
007136 


007144 
007152 
007160 


007165 
007172 
007200 
007206 
007214 


007222 
007230 
007236 
007244 


007247 
007254 
007262 


007265 
007272 
607300 
007306 
007314 


046600 
020133 
083487 
042440 

000 


200 
020113 
051108 


041600 
040440 
042440 

000 


200 
020113 
081122 
081108 


044600 
082522 
081122 


042600 
020040 
020040 
041087 


200 
020103 
081104 


260 
020040 
090122 
047524 
0260049 


046808 
042822 
044822 
084122 


046103 
081503 
047832 


047814 
042104 
051122 


043826 
020060 
020103 
6260460 
081106 


MACY’ 27(663) 
SSAGCES 


081117 
042101 
042824 
054387 


047515 


041817 
020122 
000122 


048503 
027122 
063187 


041837 
042524 
020124 
000122 


053106 
042440 
000 


041820 
081501 
061440 


2°MAYo77 15303 PAGE 33 


Mas 


80 771 
eASCIZ 


eASCIE 


ASCII MESSAGES 
<€200>0MEMORY READ/WRITE ERRORG 


<200>0MEMORY DATA ERROR AFTER POWER FAILE 


<200>@CLOCK C&R ERRORG 


<200>@CLOCK ADDR, ERRORG 
<200>0CLOCK INTERRUPT ERRORS 
<200>02NTERRUPT ERRORG 

<20020ERRPC ADDR WAS 8/Be 
<200>0ERRPC vas s / do 


<200>¢eTEST erapc 70 FROME 


a 


a a a om 2 ry Zw a az a ~ La 


© 
e 
© 
© 
© 
e 
€ 
e 
© 
€ 
¢ 
& 
Gi 
@ 
@ 
6 
i) 
© 
¢ 
6 
€ 
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1744 
1745 
1746 
1747 
1748 
1749 
1750 
1783 
1782 
1783 
1784 
1758 
1756 
1787 
1788 
1789 
1760 
1761 
1762 
1763 


007322 
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ABASE © 177846 1388 240 201 247 
acdui & 000000 240 aoa 

ACDW2 ® 000000 240 

ACPUOP® 000000 240 25s 

ADCK 001386 3586 2170 $360 $57 953 
ADDWO & 000000 240 

ADDWi & 000000 240 

ADDW108 000000 240 

ADDW118 000000 240 

ADDW128 000000 240 

ADDW138 0900000 240 

ADDW14®8 000000 240 

ADDW1S® 000000 240 

ADDW2 8 000000 240 

ADDW3 ®& 000000 240 

ADDW4 & 000000 240 

ADDWS & 000000 240 

ADDW6 8 000000 240 

ADDW? & 000000 240 

ADDWe & 000000 240 

ADDWS & 000000 240 

ADEVCTs 000000 240 246 

ADEVM 8 000000 240 203 s 
AENV 8 000000 240 281 

AENVM ® 000000 . 240 282 

AFATAL® 000000 240 aad 

AMADR1i® 000000 240 268 

AMADR2® 000000 240 272 

AMADR3® 000000 240 278 

AMADR4® 000000 240 278 

AMAM61® 000000 240 262 

AMAM82®8 000000 240 270 

AMAM83®8 000000 240 273 

AMAMS48 000000 240 276 

AMBGAD® 000000 240 248 

AMBGLG® 000000 240 249 

AMBGTY® 000000 240 242 

AMTYPi® 000000 240 263 

AMTYP2® 090000 240 271 

AMTYP3® 000000 240 274 

AMTYP48 000000 240 277 

APASS © 000000 240 268 

APRIOR® 000000 240 
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ABWREGS 000000 240 263 

ATESTN® 000000 240 244 . 
AUNIT & 0900000 240 247 
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BIT4 — 000020 
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SAPTHD 001000 100 1060 
g SASTATS seceee U 1849 ised 
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ia SATY3 006984 1466 18190 
GATY4 006364 1028 18216 
SAUTOB 001134 2170 aa3@ 1171 1292 
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SBDADR 001122 2120 
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SBELL 0011364 2320 1012 1041 
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& SCHARC 006342 1404e 14910 1496 18070 15126 
SCKSHR 0046636 41630 ©1606 
SCMTAG 001100 2000 373 374 302 306 307 
e eCu3 8 000000 2300 
SCNTLG 005363 1174 42070 
SCNTLU 005386 1191 120660 
@ SCPUOP 001222 2880 
eCcRLF 001171 2340 1020 1041 1049 1068 1073 1077 1202 1206 1480 415158 
SDBLK 006084 1393 1427 14380 
& SDEVCT 001204 2466 
SDEVMN 6001252 2020 
SDOAGN 003334 009 e35 e4ie 
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o xuv 001214 2810 437 1022 1689 1927 1831 

sEnve 001218 282¢ 408 1461 1466 1829 

stop 003126 e018 

SEOPCT 003186 8006 812 

SERFLG 001103 2030 10078 1041 1093 41123 1125 11318 1153 

SERMAX 00114158 2098 gete 1128 1140@ 4453 

SERROR 004032 B02 100S¢e 

SERRPC 001416 210@ 10140 40488 1046 1044 1055 1747 1750 1783 1785 

SERRTS 001256 3000 ©1063 

SERRTY 004220 1019 10486 

SERTTL 001412 2078 1013@ 1043 

SESCAP 001162 2220 2070 1026 1038 1041 11478 

SETABL 001214 2Soe 

SETEND 001286 192 2046 

SFATAL 001176 243¢ 1955 

SFFLG 006612 18100 18210 18949 15800 183660 

SFILLC 001186 2206 1404 1915 

SFILLS 0011585 2276 1615 

SGDADR 001120 2110 

SGDDAT 001324 2130 Siie 3010 $920 6370 6940 7040 7030 274 0798 921° 2248 2270 
939 9876 9608 1747 1780 

SGET42 003314 aise 

SGTSWR 0046706 1178e 16084 

sHD s 000001 ai 12 

SHIBTS 001000 1078 

sICNT 001104 204e 11380 1139 11418 1352 

SINTAG 001435 2100 ©1203 1292 

SITEMB 001114 206e 3016¢ 1024 1041 1052 

oLr 001172 2380 1041 41277 1206 1$15 

SLFLG 006611 1889e 169659 

SLPADR 001106 208¢ Vive 469 41296 11480 4180 1182 

SLPERR 0013110 2060 3900 470e@ 1035 1129 11460 14192 

SMADRi 001226 2600 

SMADR2 001232 2720 

SMADR3 001236 2780 
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OMAIL 001474 100 192 2410 407 437 1022 1144 1459 

SMAMS1 001224 2629 

SMAMS2 001230 2700 
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OMAMS4 001240 2760 

SMBADR 001002 itis 

OMPLG 006610 18190 1826 186 00 18640 

OMNEW 008401 1178 12900 

6MSGAD 001310 2406 10 2660⸗ 1836 

SMBGLG 001212 2499 18400 
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SNWTST® 000001 4530 ass $166 $320 6108 6706 672 7166 755¢ 787 7666 

sOcNnTtT 005634 1324e 1393 13660 

SOMODE 005636 1319e@ 1323¢ 1328 13318 13420 13686 

sOveR 004620 1106 1122 1130 1140 11496 

@PASS 001202 2480 4070 415¢ 474 770 60Se 606e 616 O44 922 1136 1153 

SPASTM 001006 1908 

sQuUcs 001170 2330 1041 1221 1270 1286 1818 

SROCHR 005120 12340 1667 

@RDDECe seesee U 1669 

SROLIN 0082460 1262¢ 1668 

SRDOCTS seveve U 1689 

@RDSZ & 000010 128860 

SRTNAD 003336 6430 

SRQA 8 eveoee U 1609 

OSAVRES eeceee U 4689 

SSCOPE 004394 360 11020 

SSETUPS 000107 3679 379 380 362 384 386 367 309 433 434 603 1006 1032 
1040 1103 1188 1292 

SSTUP © 1779777 367¢@ 

SSVLAD 004564 11164 114360 
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SSWREG 001216 2830 410 
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STESTN 001200 2440 4600 11446 

STIMES 001160 2300 R060 46868 7220 7680 804* 11220 1139 11420 1152 

STKB 001146 2230 1186 1167 1164 1236 1244 

sTKs 001144 2228 1186 1165 1163 120S¢ 1236 1242 

etn S 000011 416 1870 453 4650 $03 $16 $200 $$2 33660 $90 $99 610 6440 
641 670 6000 690 709 710 7228 7858 7680 776 7866 7928 

ote 001182 2280 18000 1845 

STPFLG 001157 2290 4443 419358 

eTPs 001180 224¢ 1802 15415 

STRAP 006674 Baa 16398¢@ 

OTRAP2 006716 16660 1677 

STRP S 000012 16700 1679¢ 16608 16616 168620 16636 1684 16656 1686 1667¢@ 16680 16096 

6TRPAD 006730 1660 167768 

eTsTH 001004 1090 

OTSTNM 0011302 2028 4670 782¢ 0030 1009 1041 1093 1123 11436 1144 1149 1183 1604 

STTYIN 005346 1263 1264 1263 12650 

STYPBNS eeesee UY 16063 

6TYPDS 005640 13610 1662 

STYPE 006064 14630 1946 1670 1678 

STYPEC 006276 1207 1403 1490 14997 18020 1503 

OTYPEX 006344 1806 4810 15120 

eTYPOC 005436 13220 1679 

STYPON 0054682 1323 13240 1663 

STyPOS 0089412 13176 1680 

sUNIT 001206 2470 

SUNITM 001010 1910 
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sUSYR 001220 2540 

6VECTi 001244 2798 

SVECT2 001246 2800 

SXTSTR 004370 11080 

SS8GET4e 000000 8360 

SOFILL 005635 13160 1322¢ 1332 13678 

S40CAT® eooeee U 1019 1108 
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BIC Gos 1160 = 4888 

Bis 874 «1389 = 3349 

BIe8 1082 

BIT $76 $98 960 

BITB 408 474 770 
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